動態新增大量控件時，怎麼指定它的事件？

[rivensun]

如題

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屬性了,而且簡單明了.

請指教？

[klbt]

关注，帮你顶。