定义一个全新的类
Public Class TestEvent
Public Event testEvent_Name(ByVal testString As String) '定义一个事件 ,差不多像一个函数声明,也想一个委托声明
Public Sub testSub(ByVal testString1 As String)
MsgBox("testEvent 类的测试过程,传递进来的参数为: " & testString1)
RaiseEvent testEvent_Name(testString1) '引发事件函数,并且给时间函数赋值
End Sub
End Class
在窗体里的程序
Public Class Form1
Public WithEvents testEvent1 As New TestEvent() 'WithEvents在窗体上实例化对象
'类的事件响应函数
Private Sub testEvent1_testEvent_Name(testString As String) Handles testEvent1.testEvent_Name
MsgBox("事件发生:传递过来的参数:" & testString)
End Sub
'按钮的单击事件
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
testEvent1.testSub("ee")
End Sub
End Class
××××××××××××××××××××××××
Public testEvent1 As New TestEvent() ' 这是一个常规在类里面,函数或过程外面实例化一个类的声明方式
Public WithEvents testEvent1 As New TestEvent() '添加了WithEvents 意味着,这个实例化的类 里的事件也是起作用的
×××××××××××××××××
Handles Button1.Click
Handles testEvent1.testEvent_Name
此处都有 Handles ,如果把Handles 去掉了,就是一个普普通通的过程或是函数。
Handles的作用在于,配合该过程配合哪一个过程的使用。
××××××××××××8
Handles关键字可以关联多个事件,如:
handles Button2.click, Button3.Click
*****************
在某一个函数里面添加如下
AddHandler button4.click, AddressOf testSubHandle
这样我们就不用去写button4 的单机函数,就可以在button触发单击函数的时候,直接去执行testSubHandle