<< 向前        下一页 >>

ID : 5769

RemoveHandler

功能

解除插件事件的接收。

格式

RemoveHandler 对象

指定项目

对象
指定通过AddHandler登录的对象。

解说

解除插件事件的接收。

注意事项

-

相关项目

AddHandler、插件事件的接收

 

应用示例

为使用QR代码插件，在QR代码读取器读取QR代码时，接收读取数据的示例。
Dim g_Counter As Integer = 0 '接收个数

Sub Main()
Dim ctrl As Object
ctrl = Cao.AddController( "QR", "CaoProv.DENSO.QRCode", "",
      "Conn=com:6:38400:N:8:1, Mode=5, Protocol=0:0:0" )

'指定接收事件的名称和位置
AddHandler ctrl, "OnMessage", OnMessage 
g_Counter = 0

'事件的接收等待环路
Do
Delay 10
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 & " - CODE = [" & msg.Value & "]"
g_Counter = g_Counter + 1
End Sub

ID : 5769

<< 向前        下一页 >>