易语言,把鼠标锁定在某个区域,禁止鼠标移动,要源码
1个回答
展开全部
.版本 2
.支持库 EThread
.子程序 _按钮1_被单击
.如果 (按钮3.标题 = “锁住”)
按钮3.标题 = “解锁”
.否则
按钮3.标题 = “锁住”
.如果结束
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 X
.局部变量 Y
X = 取鼠标水平位置 ()
Y = 取鼠标垂直位置 ()
.判断循环首 (按钮3.标题 ≠ “锁住”)
.判断循环首 (取鼠标水平位置 () ≠ X 或 Y ≠ 取鼠标垂直位置 ())
_移动鼠标 (X, Y)
.判断循环尾 ()
.判断循环尾 ()
.版本 2
.DLL命令 _移动鼠标, , , "SetCursorPos", 公开, user32.dll
.参数 x, 整数型
.参数 y, 整数型
试试.....
.支持库 EThread
.子程序 _按钮1_被单击
.如果 (按钮3.标题 = “锁住”)
按钮3.标题 = “解锁”
.否则
按钮3.标题 = “锁住”
.如果结束
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 X
.局部变量 Y
X = 取鼠标水平位置 ()
Y = 取鼠标垂直位置 ()
.判断循环首 (按钮3.标题 ≠ “锁住”)
.判断循环首 (取鼠标水平位置 () ≠ X 或 Y ≠ 取鼠标垂直位置 ())
_移动鼠标 (X, Y)
.判断循环尾 ()
.判断循环尾 ()
.版本 2
.DLL命令 _移动鼠标, , , "SetCursorPos", 公开, user32.dll
.参数 x, 整数型
.参数 y, 整数型
试试.....
追问
不能用啊,锁不住鼠标
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询