' 声明一个窗体级的变量 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
Private Sub txtTotal_Change() MsgBox txtTotal.Text End Sub和从工具箱里得到的控件一样
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
MsgBox txtTotal.Text
End Sub和从工具箱里得到的控件一样