VB自定义事件

首先定义类

‘定义lei

‘定义事件

Public Event shijian()

‘定义触发事件的方法

Public Sub chufanshijiandefangfa()

RaiseEventshijian

End Sub

界面中添加按钮后，编写如下程序

‘定义lei的变量l

Dim WithEvents l As lei

Private Sub Command1_Click()

‘给lei赋值

Set l = New lei

l.chufanshijiandefangfa

End Sub

‘定义事件关联的程序

Public Sub l_shijian()

MsgBox “Hello!”

End Sub