关于vb自定义事件,看了很多博客都是抄的同一篇,第一次看的时候没看明白,现在自己弄清楚了重新整理下。
首先定义一个事件(必须定义在窗体或类模块中本文定义在类模块MyClass),
Public Event MyEvents(ByVal str1 As String)
同时在MyClass 中定义个触发该事件的函数
Sub MyData(ByVal str1 As String)
RaiseEvent MyEvents(str1)
End Sub
然后在需要触发该事件的窗体 Form1 中定义该类模块
Private WithEvents class1 As MyClass
在窗体中添加按钮 Command1 ,Command1点击时调用函数 MyData
Private Sub Command1_Click()
Set class1 = New MyClass
class1.MyData ("FirstEvent")
End Sub
在Form1 中写触发事件class1_MyEvents,class1为From1 中定义的类模块,MyEvents为MyClass中的事件,这个名称是固定的,否则无法触发
Public Sub class1_MyEvents(ByVal str1 As String)
MsgBox "【" & str1 & "】触发了该事件!"
End Sub