作者wrltertnnn (布施，爱语，利行，同事)
看板Visual_Basic
标题[VBA ] msforms类别出现错误
时间Sat Sep 1 15:19:03 2012
请问是哪儿出错..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)
1F：→ MOONRAKER:水晶球，显出错误讯息，不然把你砸掉 09/01 18:57