VB自定义事件

关于vb自定义事件，看了很多博客都是抄的同一篇，第一次看的时候没看明白，现在自己弄清楚了重新整理下。

注：自定义事件的核心是在做什么操作触发相应事件，本文触发条件为 调用 MyClass 中的 MyData 函数，触发 MyClass 事件，其实触发事件和调用 函数比较像，日常使用频率不高。

 

首先定义一个事件(必须定义在窗体或类模块中本文定义在类模块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

 

 源码地址：https://files.cnblogs.com/files/KEY-FCQ/%E6%BA%90%E7%A0%81(%E8%87%AA%E5%AE%9A%E4%B9%89%E4%BA%8B%E4%BB%B6Event).zip

需要自己新建vb工程，然后新建窗体、新建类模块，将源码中代码复制到对应的文件