易语言如何让鼠标指针移动到距离窗口顶边=10处范围内,窗口随意移动=真,求源码,这个位置不会写,求大神
1个回答
展开全部
按个人理解自作主张的给楼主改了下逻辑,因为个人觉得改属性“随意移动=真”不好,还得改回来,太麻烦!
如果不是想要的请追问!
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
标签1.边框 = 5 ' 请添加一个标签组件,调试时用作提示用,无其他意义
标签1.移动 (0, 取用户区高度 () - 24, 取用户区宽度 (), 24)
.子程序 __启动窗口_鼠标左键被按下, 逻辑型, , 主要程序
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (纵向位置 ≤ 10)
_启动窗口.发送信息 (161, 2, 0)
.如果真结束
.子程序 __启动窗口_鼠标位置被移动, 逻辑型, , 此程序用作提示用,无其他意义
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (纵向位置 ≤ 10)
标签1.标题 = “请按下鼠标左键移动窗口”
.否则
标签1.标题 = “不在范围内”
.如果结束
如果不是想要的请追问!
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
标签1.边框 = 5 ' 请添加一个标签组件,调试时用作提示用,无其他意义
标签1.移动 (0, 取用户区高度 () - 24, 取用户区宽度 (), 24)
.子程序 __启动窗口_鼠标左键被按下, 逻辑型, , 主要程序
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (纵向位置 ≤ 10)
_启动窗口.发送信息 (161, 2, 0)
.如果真结束
.子程序 __启动窗口_鼠标位置被移动, 逻辑型, , 此程序用作提示用,无其他意义
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (纵向位置 ≤ 10)
标签1.标题 = “请按下鼠标左键移动窗口”
.否则
标签1.标题 = “不在范围内”
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询