|
|
发表于 2026-6-24 10:26:55
|
显示全部楼层
山西省忻州市
.版本 2
.子程序 __启动窗口_创建完毕
气球提示框1.关联组件 (超级列表框11, “”, -1, , , , )
.子程序 _超级列表框11_表项跟踪
.参数 表项索引, 整数型
.局部变量 内容, 文本型
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 信息, 文本型
调试输出 (取程序名称 (1) + “*******开始*****************************************”)
.计次循环首 (超级列表框11.取表项数 (), n)
信息 = 信息 + 超级列表框11.取标题 (n - 1, 0) + “:” + 超级列表框11.取标题 (n - 1, 1) + #换行符
.计次循环尾 ()
气球提示框1.自动停留时间 = 10
气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “”, -1, 真)
.如果真 (超级列表框_取选中列 (超级列表框11) = 1 且 超级列表框11.取标题 (表项索引, 1) ≠ “”)
气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), 文本_折行 (信息, 200, , , ), -1, 假) |
|