Dim WithEvents MyBtn As CommandButton
Set MyBtn = Controls.Add("VB.CommandButton", "Button1")
With MyBtn
.Caption = "我可以响应事件!"
.Width = 1800
.Left = 100
.Top = 700
.Visible = True
End With
Private Sub MyBtn_Click()
MsgBox "我要移除动态加载的控件了!"
Me.Controls.Remove "Button1"
End Sub
VB动态创建控件
最新推荐文章于 2013-07-10 22:58:01 发布