精易论坛

标题: 超级列表框遍历 有没有简化写法 [打印本页]

---

作者: zzz77f    时间: 2024-9-15 19:26
标题: 超级列表框遍历 有没有简化写法

  

[e=0].版本 2

子程序名	返回值类型	公开	备 注
测试

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

b ＝ 超级列表框1.取表项数 () ＋ 1
计次循环首 (b, a)
超级列表框1.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()
b ＝ 超级列表框2.取表项数 () ＋ 1
计次循环首 (b, a)
超级列表框2.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()
b ＝ 超级列表框3.取表项数 () ＋ 1
计次循环首 (b, a)
超级列表框3.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()
b ＝ 超级列表框4.取表项数 () ＋ 1
计次循环首 (b, a)
超级列表框4.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()
b ＝ 超级列表框_上传.取表项数 () ＋ 1
计次循环首 (b, a)
超级列表框_上传.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()

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

[e=0].版本 2<br /> .支持库 iext<br /> <br /> .子程序 测试<br /> .局部变量 b, 整数型<br /> .局部变量 a, 整数型<br /> <br /> <br /> <br /> b ＝ 超级列表框1.取表项数 () ＋ 1<br /> .计次循环首 (b, a)<br /> 超级列表框1.置标题 (a － 1, 0, 到文本 (a))<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> b ＝ 超级列表框2.取表项数 () ＋ 1<br /> .计次循环首 (b, a)<br /> 超级列表框2.置标题 (a － 1, 0, 到文本 (a))<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> b ＝ 超级列表框3.取表项数 () ＋ 1<br /> .计次循环首 (b, a)<br /> 超级列表框3.置标题 (a － 1, 0, 到文本 (a))<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> b ＝ 超级列表框4.取表项数 () ＋ 1<br /> .计次循环首 (b, a)<br /> 超级列表框4.置标题 (a － 1, 0, 到文本 (a))<br /> .计次循环尾 ()<br /> <br /> b ＝ 超级列表框_上传.取表项数 () ＋ 1<br /> .计次循环首 (b, a)<br /> 超级列表框_上传.置标题 (a － 1, 0, 到文本 (a))<br /> .计次循环尾 ()

[/e]


补充内容 (2024-9-15 19:27):
就是， 五个列表框的序号排序 ..能不能用一种方法实现  简化

---

作者: LEOONL    时间: 2024-9-15 19:28
在组件设置里给组件标记编号

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
超级列表框	超级列表框
n	整数型
a	整数型

计次循环首 (5, n)
超级列表框 ＝ 取标记组件 (n)
计次循环首 (超级列表框.取表项数 (), a)
超级列表框.置标题 (a － 1, 0, 到文本 (a))
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 超级列表框, 超级列表框<br /> .局部变量 n, 整数型<br /> .局部变量 a, 整数型<br /> <br /> .计次循环首 (5, n)<br />     超级列表框 ＝ 取标记组件 (n)<br />     .计次循环首 (超级列表框.取表项数 (), a)<br />         超级列表框.置标题 (a － 1, 0, 到文本 (a))<br />     .计次循环尾 ()<br /> .计次循环尾 ()

---

作者: zzz77f    时间: 2024-9-15 19:43

LEOONL 发表于 2024-9-15 19:28
在组件设置里给组件标记编号

[e=0].版本 2

给那个组件， 是列表框吗...

---

作者: LEOONL    时间: 2024-9-15 19:46

zzz77f 发表于 2024-9-15 19:43
给那个组件， 是列表框吗...

对啊。挨个给标记写上 1 2 3 4 5

---

作者: zzz77f    时间: 2024-9-15 19:49

  

子程序名	返回值类型	公开	备 注
测试
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
超级列表框1	超级列表框
超级列表框2	超级列表框

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 测试<br /> .参数 超级列表框, 超级列表框<br /> .参数 超级列表框1, 超级列表框<br /> .参数 超级列表框2, 超级列表框

---

作者: zzz77f    时间: 2024-9-15 19:50

LEOONL 发表于 2024-9-15 19:46
对啊。挨个给标记写上 1 2 3 4 5

  

子程序名	返回值类型	公开	备 注
测试
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
超级列表框1	超级列表框
超级列表框2	超级列表框

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 测试<br /> .参数 超级列表框, 超级列表框<br /> .参数 超级列表框1, 超级列表框<br /> .参数 超级列表框2, 超级列表框

---

作者: zzz77f    时间: 2024-9-15 19:50

LEOONL 发表于 2024-9-15 19:46
对啊。挨个给标记写上 1 2 3 4 5

然后 每个列表框，名字对应标记这样理解对把

---

作者: 恶魔の佐翼    时间: 2024-9-15 19:53
超级列边框.寻找表项()

---

作者: LEOONL    时间: 2024-9-15 20:00

zzz77f 发表于 2024-9-15 19:50
[e=0].版本 2
.支持库 iext

你这啥玩意，代码不用改，在组件设置里给标记编号就行了

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4