|
楼主 |
发表于 2024-9-28 12:06:40
|
显示全部楼层
福建省泉州市
.版本 2
.子程序 截图线程1
.参数 n, 整数型
.局部变量 data, 整数型
.局部变量 size, 整数型
.局部变量 截图数据, 字节集
.局部变量 指针, 整数型
.局部变量 长度, 整数型
.判断循环首 (真)
dxc [n].dm.GetScreenDataBmp (0, 0, 811, 475, data, size)
截图数据 = 指针到字节集 (data, size)
dxc [n].截图数据 = 截图数据
' 指针 = 字节集到整数 (截图数据, 长度)
' 标签_反馈 [n].调用反馈事件 (指针, 长度, 假)
鼠标_消息 (标签_反馈 [n].取窗口句柄 (), 1, 1, 1, 1)
.判断循环尾 ()
.子程序 _标签_反馈组件_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 事件框, 标签
.局部变量 框编号, 双精度小数型
.局部变量 内容, 字节集
事件框 = 取事件组件 ()
框编号 = 到数值 (事件框.标记)
.如果真 (dxc [框编号].截图数据 ≠ { })
' 内容 = 整数到字节集 (dxc [框编号].指针, dxc [框编号].长度)
hb [框编号].底图 = dxc [框编号].截图数据
闪退解决了但图片框有的快有的慢
补充内容 (2024-9-28 12:12):
感觉还会堵塞 |
|