VBA：在运行时将文本框添加到用户窗体

Question

我想在运行时将文本框添加到我的用户表单中。目前我正在使用此代码执行此操作：

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

但是，我无法操作文本框特定的属性，例如多行、最大文本长度等。

是否有另一个选项向不缺乏此要求的用户添加运行时控件？

Answer 1

这对我来说非常有效（在 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