N个时钟控制超级列表框的每一行，有啥好办法吗

xiaoyu1986

例如，超级列表框有100行，，我想分别用时钟去控制每一行某一列的内容，
那就需要100个时钟、100个子程序，，...有没有啥好办法，能简单的实现N个时钟分别控制超级列表框的每一行呢。。
想不出，根本想不出。。。做了个简单的例子： demo.e (76.6 KB, 下载次数: 8)

2023-8-27 16:26 上传

点击文件名下载附件





补充内容 (2023-8-27 16:27):
不能用多线程。。。-_-||

Suky

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a
i	整数型
ii	整数型
n	整数型
L_时钟	时钟

计次循环首 (3, i)
a ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )  ' 初始化 3 行 ，计划是几百行。。。
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), ii)
超级列表框1.置标题 (ii － 1, 1, “0”)
计次循环尾 ()
时钟1.时钟周期 ＝ 300  ' 一个时钟控制1行，，计划是几百个时钟控制几百行，。，。
计次循环首 (超级列表框1.取表项数 (), n)
复制窗口组件 (时钟1, L_时钟)
L_时钟.标记 ＝ 到文本 (n ＋ 1)
事件转移 (L_时钟, 时钟1)
L_时钟.时钟周期 ＝ 时钟1.时钟周期
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
L_时钟	时钟
索引	整数型

调试输出 (取现行时间 ())
L_时钟 ＝ 取事件组件 ()
索引 ＝ 到整数 (L_时钟.标记) － 1
置随机数种子 ()
a ＝ 到整数 (超级列表框1.取标题 (索引, 1))
b ＝ 选择 (取随机数 (1, 9) ％ 2 ＝ 0, a ＋ 取随机数 (11, 999), a － 取随机数 (11, 999))
超级列表框1.置标题 (索引, 1, 到文本 (b))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 L_时钟, 时钟<br /> <br /> .计次循环首 (3, i)<br />     a ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )  ' 初始化 3 行 ，计划是几百行。。。<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), ii)<br />     超级列表框1.置标题 (ii － 1, 1, “0”)<br /> .计次循环尾 ()<br /> 时钟1.时钟周期 ＝ 300  ' 一个时钟控制1行，，计划是几百个时钟控制几百行，。，。<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     复制窗口组件 (时钟1, L_时钟)<br />     L_时钟.标记 ＝ 到文本 (n ＋ 1)<br />     事件转移 (L_时钟, 时钟1)<br />     L_时钟.时钟周期 ＝ 时钟1.时钟周期<br /> .计次循环尾 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 L_时钟, 时钟<br /> .局部变量 索引, 整数型<br /> <br /> 调试输出 (取现行时间 ())<br /> L_时钟 ＝ 取事件组件 ()<br /> 索引 ＝ 到整数 (L_时钟.标记) － 1<br /> 置随机数种子 ()<br /> a ＝ 到整数 (超级列表框1.取标题 (索引, 1))<br /> b ＝ 选择 (取随机数 (1, 9) ％ 2 ＝ 0, a ＋ 取随机数 (11, 999), a － 取随机数 (11, 999))<br /> 超级列表框1.置标题 (索引, 1, 到文本 (b))

demo2.e (15.83 KB, 下载次数: 12)

2023-8-27 16:57 上传

点击文件名下载附件
测试过了，这样处理可行

补充内容 (2023-8-27 17:00):
方案可行，代码自行优化；或者有更好的方法希望可以分享一下

补充内容 (2023-8-27 17:01):
搞错了一个东西，复制组件时候应该减一个，因为原本已经存在一个时钟1了

补充内容 (2023-8-27 17:01):
计次循环首 (超级列表框1.取表项数 () － 1, n)

补充内容 (2023-8-27 17:04):
别忘记给时钟1设置初始标记

Suky

复制窗口组件    赋予标记    事件转移   
时钟周期事件里，取事件组件   取标记，标记作为表项索引参数  其他代码相同
这样子试试

补充内容 (2023-8-27 16:43):
感觉应该可行，我看到数据类型里可以有时钟   嘿嘿

补充内容 (2023-8-27 16:44):
复制组件后   时钟组件可以放一个组件数组变量里，也方便后续控制不同时钟

时髦猪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a
i	整数型
ii	整数型

计次循环首 (100, i)
a ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )  ' 初始化 3 行 ，计划是几百行。。。
超级列表框1.置标题 (a, 1, “0”)
计次循环尾 ()
时钟1.时钟周期 ＝ 300  ' 一个时钟控制1行，，计划是几百个时钟控制几百行，。，。

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
i	整数型

置随机数种子 ()
计次循环首 (超级列表框1.取表项数 (), i)
a ＝ 到整数 (超级列表框1.取标题 (i － 1, 1))
b ＝ 选择 (取随机数 (1, 9) ％ 2 ＝ 0, a ＋ 取随机数 (11, 999), a － 取随机数 (11, 999))
超级列表框1.置标题 (i － 1, 1, 到文本 (b))
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> <br /> .计次循环首 (100, i)<br />     a ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )  ' 初始化 3 行 ，计划是几百行。。。<br />     超级列表框1.置标题 (a, 1, “0”)<br /> .计次循环尾 ()<br /> <br /> 时钟1.时钟周期 ＝ 300  ' 一个时钟控制1行，，计划是几百个时钟控制几百行，。，。<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     a ＝ 到整数 (超级列表框1.取标题 (i － 1, 1))<br />     b ＝ 选择 (取随机数 (1, 9) ％ 2 ＝ 0, a ＋ 取随机数 (11, 999), a － 取随机数 (11, 999))<br />     超级列表框1.置标题 (i － 1, 1, 到文本 (b))<br /> .计次循环尾 ()

乐鱼驴

1.【分别用时钟】
这里我理解的是 ，要控制多少行就得用多少时钟。想不到别的办法

2.如果把分别去掉【用时钟】
那么可以用变量控制列表项和周期。当然如果他们的周期只有1毫秒当我没说

xiaoyu1986

乐鱼驴 发表于 2023-8-27 16:48
1.【分别用时钟】
这里我理解的是 ，要控制多少行就得用多少时钟。想不到别的办法

你理解的【分别用时钟】，理解的没有错，