删除一个可能与 VB.net 中的其他事件完全相同的事件

Question

我正在 VB.net 中创建一个通过 LuaInterface 使用 Lua 的系统。

要将 Lua 中的事件与函数相关联，我可以简单地执行以下操作：

RegisterEvent("tick", function(nt)
    if not lcc then return end
        if nt>=tt then
            f()
            lcc=false
        end
    end)

如您所见，我当前正在使用 lcc 变量来“取消”该函数。这有点被破坏了，该函数仍然会被调用，从而导致不必要的开销。这就是我的“RegisterEvent”子在 VB.net 中的样子

Public Sub RegisterEvent(ByVal eventName As String, ByVal func As LuaFunction)
    Select Case eventName.ToLower
        Case "keydown"
            AddHandler Me.event_keydown, AddressOf func.Call
        Case "keyup"
            AddHandler Me.event_keyup, AddressOf func.Call
        Case "mousedown"
            AddHandler Me.event_mousedown, AddressOf func.Call
        Case "mouseup"
            AddHandler Me.event_mouseup, AddressOf func.Call
        Case "ready"
            AddHandler Me.event_ready, AddressOf func.Call
        Case "tick"
            AddHandler Me.event_tick, AddressOf func.Call
        Case "frame"
            AddHandler Me.event_frame, AddressOf func.Call
    End Select
End Sub

我想在我的 Lua 中做类似的事情：

local lcc=RegisterEvent("tick", function(nt)
    print("The Ticks Are Now At: "..nt)
    if nt>5000 then
        DisconnectEvent(lcc)
    end
end)

问题是，我不确定应该如何更改我的 RegisterEvent 函数/子以及应该如何制作断开连接事件。

感谢您的任何帮助。我知道试图理解我想说的话有点烦人。请随意发表评论要求澄清。我将非常愿意尽我最大的能力尝试解释它。如果 LuaInterface 有某种本地方式来处理这个问题，我也对此持开放态度:)

任何有帮助的事情都很棒！

Answer 1

如果我错了请纠正我。您可能必须使用 Dictionary(of String,boolean) 来确定事件是否已附加。

Dim eventDict As New Dictionary(Of String, Boolean)

Public Sub RegisterEvent(ByVal eventName As String, ByVal func As LuaFunction)
    Select Case eventName.ToLower
        Case "keydown"
           If Not eventDict.ContainsKey(eventName) Then
                eventDict.Add(eventName,false)
           End If
           if eventDict(eventName) Then
                RemoveHandler Me.event_keydown, AddressOf func.Call
                eventDict(eventName)=false
           Else 
                eventDict(eventName)=true
                AddHandler Me.event_keydown, AddressOf func.Call
           End If
     ...
End sub