查找发件人而不将其作为参数传递给.NET

Question

我正在使用与RFID终端一起使用的API。当任一终端中触发一个事件，该API照顾它，并传递适当的参数的程序：

For i = 0 to NumberOfTerminals - 1 
    myTerminals(i).ID = i 
    myTerminals(i).API.Connect() 
    AddHandler myTerminals(i).API.OnRFID, AddressOf OnRFIDSub 
End For 

Private Sub OnConnectSub(ByVal RFID As String, ByVal EventTime As String) 
    MsgBox(RFID & " : " & EventTime) 
End Sub 

的问题是，当事件被触发，存在从API传递没有sender或e属性。有没有办法知道哪个终端在没有sender对象的情况下触发了该事件？

提前致谢。

Answer 1

VB语法转义我，但似乎你可以添加一个不同的处理程序到每个终端。因此，添加一个处理程序到终端i，它将终端（i）传递给作为发件人的函数。

达到此目的的最简单方法可能是lambda表达式。

Answer 2

扩大对nvoigts回答

For i = 0 to NumberOfTerminals - 1 
    myTerminals(i).ID = i 
    myTerminals(i).API.Connect() 
    'copy the id as there are problems with closing over iteration variables. 
    dim id as integer = i 
    'Lamda sub to close over id 
    AddHandler myTerminals(i).API.OnRFID, _ 
     Sub(ByVal RFID As String, ByVal EventTime As String) _ 
      OnRFIDSub(RFID,EventTime,id) 
End For 

Private Sub OnConnectSub(ByVal RFID As String, ByVal EventTime As String, 
         ByVal Sender as Integer) 'Sender now contains the terminal ID 
    MsgBox(RFID & " : " & EventTime) 
End Sub