[VBA ] msforms類別出現錯誤
請問是哪兒出錯..thx
--------------------------cmd 類別---------------------
Public WithEvents cmd As msforms.CommandButton
Private Sub cmd_Click()
UserForm1.tabid.Text = UserForm1.tabid.Text & cmd.Caption
End Sub
---------------------------userform1 事件---------------
Dim arrcmd(1 To 10) As commandwithevents
Private Sub UserForm_Initialize()
Dim i As Integer
Dim cmdb As commandwithevents
For i = 1 To 5 'Me.Controls.Count
Set cmdb = New commandwithevents
Set cmdb.cmd = UserForm1.Controls("cmd" & i)
Set arrcmd(i) = cmdb
Set cmdb = Nothing
Next i
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 27.109.243.216
※ 編輯: wrltertnnn 來自: 27.109.243.216 (09/01 15:44)
→
09/01 18:57, , 1F
09/01 18:57, 1F