How to use VB6.0's Event.

Creat a new class named Class1, it's codes like this:

Public Event MyEvent()

Public Sub RaiseTheEvent()
    'some other codes here
    RaiseEvent MyEvent
   
End Sub

Create a new form, draw a command on it named Command1, double the command to open the code.

It codes like this:

Option Explicit

Private WithEvents Myclass As class1


Private Sub Command1_Click()
    Set Myclass = New class1
    Call Myclass.RaiseTheEvent 'In this sub event is raised.

End Sub

Private Sub Myclass_MyEvent()'this is the sub to dill with the event.
    MsgBox "class1's event occured."
End Sub

Start the application and Click the button will raise the event.

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页