' Event in Form module
Public Event OnClickToolbar(ByVal ID As Integer)
' RaiseEvent
Private Sub cmdToolbar_Click(Index As Integer)
RaiseEvent OnClickToolbar(Index)
If Index = cmdToolbar.UBound Then
Unload Me
End If
End Sub
[Class Source]
Private WithEvents fm As fmToolbar
Public Event OnClickToolbar(ByVal ID As Integer)
'-------------------------------------
' Class event
'-------------------------------------
Private Sub fm_OnClickToolbar(ByVal ID As Integer)
RaiseEvent OnClickToolbar(ID)
End Sub
'--------------------------------------
' Class Initialize & Terminate
'--------------------------------------
Private Sub Class_Initialize()
Set fm = New fmToolbar
End Sub
Private Sub Class_Terminate()
If Not fm Is Nothing Then Set fm = Nothing
End Sub
'--------------------------------------
' class method
'--------------------------------------
Public Sub ShowWindow()
fm.Show vbModeless
End Sub
Public Sub DestroyWindow()
Set fm = Nothing
End Sub
## Help me!!
Sponsor Sponsor
Zeroth
Posted: Wed Apr 15, 2009 3:44 pm Post subject: Re: ActiveX Exe in Python
Umm... I don't think any of us can read chinese or korean, or whatever that is. What is your problem, please, in english?