|
|

楼主 |
发表于 2019-7-4 14:35:10
|
显示全部楼层
云南省临沧市
.版本 2
.支持库 eAPI
.程序集 窗口程序集_启动窗口, , , www.eyuyan.la
.子程序 __启动窗口_创建完毕, , , 易语言学习资源、源码下载站:www.eyuyan.la
' 易语言学习资源、源码下载站
' www.eyuyan.la
图片框1.图片 = #图片1
按钮1.标题 = “开启”
.子程序 _图片框1_鼠标左键被按下, 逻辑型, , 本源码来自易语言资源网(www.eyuyan.la)
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
' 易语言学习资源、源码下载站:www.eyuyan.la
图片框1.鼠标指针 = #图片1
处理事件 ()
捕获鼠标 (图片框1.取窗口句柄 ())
图片框1.图片 = { }
.子程序 _按钮1_被单击
.判断开始 (按钮1.标题 = “开启”)
时钟1.时钟周期 = 1000
按钮1.标题 = “停止”
.默认
按钮1.标题 = “开启”
时钟1.时钟周期 = 0
.判断结束
.子程序 _图片框1_鼠标左键被放开, 逻辑型, , 易语言学习资源、源码下载站:www.eyuyan.la
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
' 本源码来自易语言资源网(www.eyuyan.la)
释放鼠标 ()
图片框1.鼠标指针 = { }
图片框1.图片 = #图片1
编辑框_句柄.内容 = 到文本 (取鼠标所在窗口句柄 ())
编辑框_标题.内容 = 到文本 (取窗口标题 (取鼠标所在窗口句柄 ()))
编辑框_类名.内容 = 到文本 (取窗口类名 (取鼠标所在窗口句柄 ()))
编辑框_横坐标.内容 = 到文本 (取鼠标水平位置 ())
编辑框_纵坐标.内容 = 到文本 (取鼠标垂直位置 ())
.子程序 _时钟1_周期事件
鼠标_消息 (到整数 (编辑框_句柄.内容), 到整数 (编辑框_横坐标.内容), 到整数 (编辑框_纵坐标.内容), 1, 1)
把这个修改为相对窗口的坐标 |
|