vb.net自定义事件

1、先定义事件：Event

Event ConnectComplete(ByVal Result As Boolean, ByVal Reason As String)

2、触发事件：RaiseEvent

RaiseEvent ConnectComplete(False, "ConnectThread()异常:" + vbCr & vbLf + ex.ToString())

3、以withEvents关键字声明事件对象变量（RobotCoreDriver是事件所在类）：

Private WithEvents mRobotControlDriver As RobotCoreDriver = new RobotCoreDriver;

4、收到事件：

Private Sub mRobotControlDriver_ConnectComplete(Result As Boolean, Reason As String) Handles mRobotControlDriver.ConnectComplete
     MessageBox.Show("收到事件")   
End Sub

demo:

Public Class RobotCoreDriver
    Event ConnectComplete(ByVal Result As Boolean, ByVal Reason As String)
    Sub Demo()
        RaiseEvent ConnectComplete(False, "ConnectThread()异常:" + vbCr & vbLf + ex.ToString())
    End Sub
End Class

Public Class Test
    Private WithEvents mRobotControlDriver As RobotCoreDriver = new RobotCoreDriver;
    mRobotControlDriver.Demo()
End Class
Private Sub mRobotControlDriver_ConnectComplete(Result As Boolean, Reason As String) Handles mRobotControlDriver.ConnectComplete
     MessageBox.Show("收到事件")   
End Sub