比如动态创建按钮控件: private withEvents cmd as CommandButton pirvate sub Form_Load(0 set cmd=Controls.Add("VB.CommandButtons","Newcmd",Me) With cmd .MOVE 200,200,1000,500 .Caption="新按钮" .Visible=True End with End subPrivate sub cmd_Click() Msgbox "新的按钮触发事件" End sub
Control:Load Form: Dim ObjForm as object set ObjForm= New Form1 ObjForm.Show
private withEvents cmd as CommandButton
pirvate sub Form_Load(0
set cmd=Controls.Add("VB.CommandButtons","Newcmd",Me)
With cmd
.MOVE 200,200,1000,500
.Caption="新按钮"
.Visible=True
End with
End subPrivate sub cmd_Click()
Msgbox "新的按钮触发事件"
End sub
Form:
Dim ObjForm as object
set ObjForm= New Form1
ObjForm.Show
他们各自的事件又怎么处理呢?