動態新增大量控件時,怎麼指定它的事件?
如題
Private WithEvents Ctltmp As CommandButton
sub dd()
Set Ctltmp = Me.Controls.Add("Forms.CommandButton.1", "F2Btntmp1", True)
end sub
Private Sub Ctltmp_Click()
MsgBox "ctltmp"
End Sub
這樣可以動態新增一個CommandButton
如我要動態新增100個CommandButton
是不是一定要預先定義好一百個變量
象這樣
Private WithEvents Ctltmp1As CommandButton
.
.
.Private WithEvents Ctltmp100 As CommandButton
再分別寫它的事件
Private Sub Ctltmp1_Click()
MsgBox "ctltmp100"
End Sub
.
.
.
Private Sub Ctltmp100_Click()
MsgBox "ctltmp100"
End Sub
有否簡單的方法?
如是這樣,那我還不如靜態新增好了,然後再設disable屬性了,而且簡單明了.
請指教?