动态创建控件的操作问题,请各位赐教!

Question

Private WithEvents cmd As CommandButtonPrivate Sub Form_Load()
    Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
    cmd.Visible = True
    cmd.ZOrder 0
End SubPrivate Sub cmd_Click()
    MsgBox "点击了按钮cmd1"
End Sub这样子我只能创建一个控件赋给cmd_Click()事件,能不能创建一个控件数组给他们同时赋cmd_Click()事件呢?

Answer 1

是的.有的
WithEvents 申明的对象就有其对应的事件.呵

Answer 2

这种方法实现控件数组的话，在事件里很难判断究竟是哪个触发CLICK的。

Answer 3

这种方法也实现不了控件数组.呵
WithEvents 的声明方式,是声明不了数组的。呵

Answer 4

可以使用Load方法来做
http://www.evget.com/articles/evget_101.html