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.

阅读更多
个人分类: vb6.0 today study
上一篇Msn英语水平测试
下一篇开始我的创业之旅吧
想对作者说点什么? 我来说一句

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

关闭
关闭
关闭