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

Answer 2

您可能需要在 With 語句之后添加 .visible = true 作為第一行。