源码分享:自动监控新数据，会用许可证线程的高手做下优化

ai2023 · 发表于昨天 20:42

本帖最后由 ai2023 于 2024-11-27 23:24 编辑

分享：参考了多个监控例子，可自动对应添加新的小屏幕，
由于是业余作品，为了实现那个【鼠标移动到小屏幕自动弹出大点的公屏展示】功能，写了好久。

需要优化的地方：
1.客户Duan上线多了会卡，对许可证的写法还不熟练，有擅长的麻烦优化下
2.客户Duan，就一个时钟快照，部分电脑报du，就不太理解。之前没见过

核心代码：

子程序名	返回值类型	公开	备注
_新增图框
参数名	类型	参考	可空	数组	备注
客户句柄_	文本型

变量名	类型	静态	数组	备注
tpk_s	整数型
分组框_iL	整数型
分组框_iT	整数型
分组框_i	分组框
图片框_i	图片框
row	整数型
col	整数型

' 这里如果数据多会卡住，多线程、许可证都尝试了，没解决，会解决的留言下
许可证_加图片框.进入 ()
_寻找全部组件 (_启动窗口, “图片框”, “小屏”)
tpk_s ＝取数组成员数 (集_数组_组件_图片框)

如果真 (tpk_s ≥ 36)

返回 ()
分组框_iT ＝分组框1.顶边
分组框_iL ＝分组框1.左边
复制窗口组件 (分组框1, 分组框_i)
分组框_i.标题＝取文本 (“监控 %s”, 到整数 (tpk_s ＋ 1)) ' —————
复制窗口组件 (图片框1, 图片框_i)
加入成员 (集_数组_组件_图片框_, 图片框_i)

如果真 (图片框_i.标记＝图片框1.标记)

图片框_i.标记＝ “小屏”

如果真 (寻找文本 (图片框_i.标记, “|”, , 假) ＝ -1)

图片框_i.标记＝ “小屏” ＋ “|” ＋客户句柄_

row ＝ (tpk_s ＋ 0) ％小屏列数
col ＝ (tpk_s ＋ 0) ＼小屏列数
分组框_i.移动 (分组框_iL �� (1 ＋分组框1.宽度) × row, 分组框_iT �� (1 ＋分组框1.高度) × col, , )
分组框_i.置父窗口 (高级选择夹1_监控)
分组框_i.激活 ()
分组框_i.可视＝真
图片框_i.置父窗口 (高级选择夹1_监控)
图片框_i.移动 (分组框_i.左边＋图片框1.左边－分组框1.左边, 分组框_i.顶边＋图片框1.顶边－分组框1.顶边, , )
图片框_i.图片＝ { }
图片框_i.背景颜色＝ #黑色
图片框_i.调整层次 ( #顶层 )
透明标签_监屏.调整层次 ( #顶层 )
' 图片框_i.图片＝ #例图
图片框_i.图片＝ { }
图片框_i.激活 ()
图片框_i.可视＝真
处理事件 ()

如果真 (分组框_i.顶边＋分组框_i.高度＋ 5 ＞高级选择夹1_监控.高度)

高级选择夹1_监控.高度＝分组框_i.顶边＋分组框_i.高度＋ 5

如果真 (分组框_i.左边＋分组框_i.宽度＋ 5 ＞高级选择夹1_监控.宽度)

高级选择夹1_监控.宽度＝分组框_i.左边＋分组框_i.宽度＋ 5
处理事件 ()
创建线程 (&初始化_组件位置, )
许可证_加图片框.退出 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext3	扩展界面支持库三
e2ee	E2EE互联网服务器套件

.版本 2<br />
.支持库 spec<br />
.支持库 iext3<br />
.支持库 e2ee<br />
<br />
.子程序 _新增图框<br />
.参数 客户句柄_, 文本型, 可空<br />
.局部变量 tpk_s, 整数型<br />
.局部变量 分组框_iL, 整数型<br />
.局部变量 分组框_iT, 整数型<br />
.局部变量 分组框_i, 分组框<br />
.局部变量 图片框_i, 图片框<br />
.局部变量 row, 整数型<br />
.局部变量 col, 整数型<br />
<br />
<br />
' 这里如果数据多 会卡住，多线程、许可证都尝试了，没解决，会解决的留言下<br />
许可证_加图片框.进入 ()<br />
<br />
_寻找全部组件 (_启动窗口, “图片框”, “小屏”)<br />
<br />
tpk_s ＝ 取数组成员数 (集_数组_组件_图片框)<br />
.如果真 (tpk_s ≥ 36)<br />
    返回 ()<br />
.如果真结束<br />
分组框_iT ＝ 分组框1.顶边<br />
分组框_iL ＝ 分组框1.左边<br />
<br />
复制窗口组件 (分组框1, 分组框_i)<br />
分组框_i.标题 ＝ 取文本 (“监控 %s”, 到整数 (tpk_s ＋ 1))  ' —————<br />
复制窗口组件 (图片框1, 图片框_i)<br />
加入成员 (集_数组_组件_图片框_, 图片框_i)<br />
.如果真 (图片框_i.标记 ＝ 图片框1.标记)<br />
    图片框_i.标记 ＝ “小屏”<br />
.如果真结束<br />
.如果真 (寻找文本 (图片框_i.标记, “|”, , 假) ＝ -1)<br />
    图片框_i.标记 ＝ “小屏” ＋ “|” ＋ 客户句柄_<br />
.如果真结束<br />
<br />
row ＝ (tpk_s ＋ 0) ％ 小屏列数 <br />
col ＝ (tpk_s ＋ 0) ＼ 小屏列数 <br />
<br />
分组框_i.移动 (分组框_iL ＋ (1 ＋ 分组框1.宽度) × row, 分组框_iT ＋ (1 ＋ 分组框1.高度) × col, , )<br />
分组框_i.置父窗口 (高级选择夹1_监控)<br />
分组框_i.激活 ()<br />
分组框_i.可视 ＝ 真<br />
<br />
图片框_i.置父窗口 (高级选择夹1_监控)<br />
图片框_i.移动 (分组框_i.左边 ＋ 图片框1.左边 － 分组框1.左边, 分组框_i.顶边 ＋ 图片框1.顶边 － 分组框1.顶边, , )<br />
<br />
图片框_i.图片 ＝ {  }<br />
图片框_i.背景颜色 ＝ #黑色<br />
图片框_i.调整层次 (#顶层)<br />
透明标签_监屏.调整层次 (#顶层)<br />
' 图片框_i.图片 ＝ #例图<br />
图片框_i.图片 ＝ {  }<br />
图片框_i.激活 ()<br />
图片框_i.可视 ＝ 真<br />
<br />
处理事件 ()<br />
.如果真 (分组框_i.顶边 ＋ 分组框_i.高度 ＋ 5 ＞ 高级选择夹1_监控.高度)<br />
    高级选择夹1_监控.高度 ＝ 分组框_i.顶边 ＋ 分组框_i.高度 ＋ 5<br />
.如果真结束<br />
.如果真 (分组框_i.左边 ＋ 分组框_i.宽度 ＋ 5 ＞ 高级选择夹1_监控.宽度)<br />
    高级选择夹1_监控.宽度 ＝ 分组框_i.左边 ＋ 分组框_i.宽度 ＋ 5<br />
.如果真结束<br />
处理事件 ()<br />
创建线程 (&初始化_组件位置, )<br />
许可证_加图片框.退出 ()