易语言鼠标左键被单击触发事件的问题 比如我想在游戏中点击鼠标左键后则触发事件命令要怎么写 50
我写的怎么只在易语言窗口点击才有效果,我想实现以上的效果要怎么弄,希望高手给个源码和例子在线等待求高手呀···急求...
我写的怎么只在易语言窗口点击才有效果,我想实现以上的效果要怎么弄,希望高手给个源码和例子
在线等待
求高手呀···急求 展开
在线等待
求高手呀···急求 展开
3个回答
展开全部
.版本 2
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 ifSub, 整数型
.程序集变量 preWinProc, 整数型
.程序集变量 ptSubroutine, 子程序指针
.程序集变量 run, 子程序指针
.子程序 __启动窗口_创建完毕
设置左键单击钩子 (按钮1.取窗口句柄 (), &子程序1)
.子程序 子程序1
信息框 (“测试”, 0, )
.子程序 _新窗口消息处理, 整数型
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.判断开始 (消息 = 513) ' 被单击
执行子程序 (run, )
返回 (0)
.默认
返回 (API_CallWindowProc (preWinProc, 窗口句柄, 消息, 参数一, 参数二))
.判断结束
.子程序 设置左键单击钩子
.参数 窗口句柄, 整数型
.参数 回调程序, 子程序指针, 可空
.如果真 (preWinProc ≠ 0)
返回 ()
.如果真结束
preWinProc = API_SetWindowLong (窗口句柄, -4, 到数值 (&_新窗口消息处理))
run = 回调程序
ifSub = 0
.版本 2
.DLL命令 API_CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
.参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
.参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
.参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 ifSub, 整数型
.程序集变量 preWinProc, 整数型
.程序集变量 ptSubroutine, 子程序指针
.程序集变量 run, 子程序指针
.子程序 __启动窗口_创建完毕
设置左键单击钩子 (按钮1.取窗口句柄 (), &子程序1)
.子程序 子程序1
信息框 (“测试”, 0, )
.子程序 _新窗口消息处理, 整数型
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.判断开始 (消息 = 513) ' 被单击
执行子程序 (run, )
返回 (0)
.默认
返回 (API_CallWindowProc (preWinProc, 窗口句柄, 消息, 参数一, 参数二))
.判断结束
.子程序 设置左键单击钩子
.参数 窗口句柄, 整数型
.参数 回调程序, 子程序指针, 可空
.如果真 (preWinProc ≠ 0)
返回 ()
.如果真结束
preWinProc = API_SetWindowLong (窗口句柄, -4, 到数值 (&_新窗口消息处理))
run = 回调程序
ifSub = 0
.版本 2
.DLL命令 API_CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
.参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
.参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
.参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询