- 810 名前：デフォルトの名無しさん mailto:sage [2011/12/14(水) 03:29:20.92 ]
- イヴェントの使い方
'Class1.cls
Public Event EventDaYo()
Public Sub Hoge()
RaiseEvent EventDaYo
End Sub
'Form1.frm
Private WithEvents c1 As Class1
Private Sub Form_Load()
Set c1 = New Class1
End Sub
Private Sub Command1_Click()
Call c1.Hoge
End Sub
Private Sub c1_EventDaYo()
MsgBox "EventDaYo"
End Sub
