我想在运行时将文本框添加到我的用户表单。目前，我正在使用以下代码执行此操作：
Dim edtBox_n As Control
Set edtBox_n = usrFrm.Controls.Add("Forms.TextBox.1", "edtBox_n", True)
With edtBox_n
.Top = 20
.Left = 20
End With
但是，我无法操纵文本框特定的属性，例如多行，最大文本长度等。
是否还有其他选择可以在运行时向用户添加控件，而该控件不缺少此要求？
这对我来说效果很好（在Excel 2007上测试）：
Dim edtBox_n As Control
Set edtBox_n = usrFrm.Controls.Add("Forms.TextBox.1", "edtBox_n", True)
With edtBox_n
.Top = 20
.Left = 20
.MultiLine = True
.EnterKeyBehavior = True
.Height = 100
End With
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句