vb类的简单示例

如说,TextBox的Change事件或者Click事件,会使用才能写出有用的事件来
    在你明白事件之前,你必须知道属性和方法的用法和建立方法,本人假定你已经会了
    在类中,声明一个事件是非常容易的
    event thisEvent ''在类中
    如上就声明了一个事件了,然后在需要触发本事件的位置写代码:
    raiseevent thisevent ''在类中
    这样就可以了,但是要想在你的代码中写事件发生时的代码,你必须这样定义变量
    dim withevents myObject as class1 ''在窗体中或其它的类中,模块级变量
    set myobject as new class1 ''在使用此类之前先应该实例化它
    然后,在窗体或类的代码窗口的左上方的下拉列表中(对象列表)选择这个变量,就是myobject,VB会自动把这个事件显示出来并生成一个事件的过程,接下来的事情你就再熟悉不过的了
    现在给你示例代码:

    '在类Class1中的代码:
Option Explicit

Event thisEvent()

Sub Test()
RaiseEvent thisEvent
End Sub

    '在窗体Form1中的代码:
Option Explicit
Dim WithEvents myObject As Class1

Private Sub Form_Click()
myObject.Test
End Sub

Private Sub Form_Load()
Set myObject = New Class1
End Sub

Private Sub myObject_thisEvent()
MsgBox "事件被触发"
End Sub