如说,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