我想在运行时将文本框添加到我的用户表单中。目前我正在用这个代码做这件事:
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
您可能需要添加.visible=true作为With语句后的第一行。