在VB.net中删除可能与其他事件完全相同的一个事件。
2011-12-14 2:57:6
收藏:0
阅读:99
评论:1
我正在使用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
点赞
评论区的留言会收到邮件通知哦~
推荐文章
- 如何在roblox studio中1:1导入真实世界的地形?
- 求解,lua_resume的第二次调用继续执行协程问题。
- 【上海普陀区】内向猫网络招募【Skynet游戏框架Lua后端程序员】
- SF爱好求教:如何用lua实现游戏内调用数据库函数实现账号密码注册?
- Lua实现网站后台开发
- LUA错误显式返回,社区常见的规约是怎么样的
- lua5.3下载库失败
- 请问如何实现文本框内容和某个网页搜索框内容连接,并把网页输出来的结果反馈到另外一个文本框上
- lua lanes多线程使用
- 一个kv数据库
- openresty 有没有比较轻量的 docker 镜像
- 想问一下,有大佬用过luacurl吗
- 在Lua执行过程中使用Load函数出现问题
- 为什么 neovim 里没有显示一些特殊字符?
- Lua比较两个表的值(不考虑键的顺序)
- 有个lua简单的项目,外包,有意者加微信 liuheng600456详谈,最好在成都
- 如何在 Visual Studio 2022 中运行 Lua 代码?
- addEventListener 返回 nil Lua
- Lua中获取用户配置主目录的跨平台方法
- 如何编写 Lua 模式将字符串(嵌套数组)转换为真正的数组?
如果我说错了请纠正我。你可能需要使用
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