易语言如何限制鼠标在窗口内移动?
1个回答
展开全部
这个我最擅长了!
——————————————这个是最简单的没有任何模块的——————————————
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
.判断开始 (取鼠标水平位置 () > _启动窗口.左边 + _启动窗口.宽度) ' 超出 _启动窗口右边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标水平位置 () < _启动窗口.左边) ' 超出 _启动窗口左边边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () > _启动窗口.顶边 + _启动窗口.高度) ' 超出 _启动窗口下边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () < _启动窗口.顶边) ' 超出 _启动窗口上边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
——————————————加了个“鼠标移动(,,)”————————————
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
.判断开始 (取鼠标水平位置 () > _启动窗口.左边 + _启动窗口.宽度) ' 超出 _启动窗口右边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标水平位置 () < _启动窗口.左边) ' 超出 _启动窗口左边边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () > _启动窗口.顶边 + _启动窗口.高度) ' 超出 _启动窗口下边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () < _启动窗口.顶边) ' 超出 _启动窗口上边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
——————————————————————————————————————————
鼠标移动的优点,就是不点击窗口。
———————————直接用“鼠标限制(,,,)”————————————————
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
鼠标限制 (_启动窗口.左边, _启动窗口.顶边, _启动窗口.左边 + _启动窗口.宽度, _启动窗口.顶边 + _启动窗口.高度)
———————我刚刚测试的时候。关闭程序后,鼠标限制还在。不推荐——————————
——————————————这个是最简单的没有任何模块的——————————————
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
.判断开始 (取鼠标水平位置 () > _启动窗口.左边 + _启动窗口.宽度) ' 超出 _启动窗口右边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标水平位置 () < _启动窗口.左边) ' 超出 _启动窗口左边边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () > _启动窗口.顶边 + _启动窗口.高度) ' 超出 _启动窗口下边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () < _启动窗口.顶边) ' 超出 _启动窗口上边
模拟鼠标点击 (_启动窗口.左边 + 40, _启动窗口.顶边 + 40, 0) ' 鼠标回来
.默认
.判断结束
——————————————加了个“鼠标移动(,,)”————————————
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
.判断开始 (取鼠标水平位置 () > _启动窗口.左边 + _启动窗口.宽度) ' 超出 _启动窗口右边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标水平位置 () < _启动窗口.左边) ' 超出 _启动窗口左边边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () > _启动窗口.顶边 + _启动窗口.高度) ' 超出 _启动窗口下边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
.判断开始 (取鼠标垂直位置 () < _启动窗口.顶边) ' 超出 _启动窗口上边
鼠标移动 (, _启动窗口.左边 + 40, _启动窗口.顶边 + 40) ' 鼠标回来
.默认
.判断结束
——————————————————————————————————————————
鼠标移动的优点,就是不点击窗口。
———————————直接用“鼠标限制(,,,)”————————————————
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
鼠标限制 (_启动窗口.左边, _启动窗口.顶边, _启动窗口.左边 + _启动窗口.宽度, _启动窗口.顶边 + _启动窗口.高度)
———————我刚刚测试的时候。关闭程序后,鼠标限制还在。不推荐——————————
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询