怎么用语句动太创建一个textbox?

Question

怎么用语句动太创建一个textbox?

Answer 1

' 声明一个窗体级的变量
Dim WithEvents txtTotal As TextBoxSub CreateTextbox()
' 创建新的Textbox控件
Set txtTotal = Controls.Add("VB.TextBox", "txtTotal")
' 将控件移动到你所需要的地方
txtTotal.Move 1000, 800, 1200, 300
' 创建时，所有的控件都是不可见的
txtTotal.Visible = True
End SubPrivate Sub Form_Load()
CreateTextbox
End Sub

Answer 2

Private Sub txtTotal_Change()
MsgBox txtTotal.Text
End Sub和从工具箱里得到的控件一样

Answer 3

我的txttotal可能是个很大的数组，这样处理不知行不行