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

我正在使用VB.net创建一个使用Lua的系统,其中使用了LuaInterface。

要将Lua中的事件与函数关联起来,我可以简单地执行以下操作:

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

如您所见,我目前正在使用lcc变量来“取消”函数。这有点麻烦,并且函数仍将被调用,导致不必要的开销。这是我在VB.net中的“RegisterEvent”子程序的样子:

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函数/子程序以及我应该如何进行DisconnectEvent。

谢谢任何帮助。我知道这有点让人烦恼,试图理解我想说的话。随时发表评论以请求澄清。我将非常愿意尽力解释。如果LuaInterface有处理此问题的一些本机方法,我也可以开放这个想法 :)

任何帮助都是极好的!

原文链接 https://stackoverflow.com/questions/8499040

点赞
stackoverflow用户142822
stackoverflow用户142822

如果我说错了请纠正我。你可能需要使用 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
2011-12-14 03:21:49