RemoveHandler

用例

RC9プロバイダを使用し、RC9 コントローラのエラー通知や状態通知を受け取る例です。

Dim g_Counter As Integer = 0 '受取り個数

Sub Main()
Dim ctrl As Object

    ctrl = Cao.AddController("RC9", "CaoProv.DENSO.RC9", "", "Server=192.168.0.1")
    g_Counter = 0

'受取りイベント名と先の指定
AddHandler ctrl, "OnMessage", OnMessage

'イベントの受信待ちループ
    Do
        Delay 100
        If g_Counter >= 3 Then Exit Do
    Loop

 '受取りの解除
    RemoveHandler ctrl

End Sub

'Event Handler for OnMessage
Sub OnMessage(ByVal Sender As Object, ByVal Args As Variant)
    Dim msg as object

    msg = Args(0) '::= CaoMessage object
    PrintDbg "" & Time & " - [EventNo = " & msg.Number & ", Value = 0x" & Hex(msg.Value) & "]"
    g_Counter = g_Counter + 1

End Sub