编辑框内容等于超级列表框的所有选中项标题

ωǒ要你

编辑框内容等于超级列表框的所有选中项标题怎么写？

.版本 2
.支持库 iext

.如果 (检查框状态 ＝ 1)
    .计次循环首 (超级列表框1.取列数 (), n1)
        编辑框1.内容 ＝ 编辑框1.内容 ＋ 超级列表框1.取标题 (表项索引, n1 － 1)
    .计次循环尾 ()



这样写只能增加选中。取消选中不知道怎么写了 11.e (3.96 KB, 下载次数: 6)

2017-6-20 19:13 上传

点击文件名下载附件

粉蝴蝶软件

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _超级列表框1_检查框状态被改变
   
5. .参数 表项索引, 整数型
   
6. .参数 检查框状态, 整数型
   
7. .局部变量 n1, 整数型
   
8. 
   
9. 编辑框1.内容 ＝ “”
   
10. .计次循环首 (超级列表框1.取表项数 (), n1)
    
11.     .如果真 (超级列表框1.取当前状态图片 (n1 － 1) ＝ 1)
    
12.         编辑框1.加入文本 (超级列表框1.取标题 (n1 － 1, 0))
    
13.     .如果真结束
    
14. 
    
15. .计次循环尾 ()
    

复制代码

补充内容 (2017-6-20 19:33):
没必要这么麻烦，也不需要判断状态检查框，进来后一个循环，然后判断哪些选择了 哪些没选择就可以了

空之影

.版本 2
.支持库 iext

.子程序 _超级列表框1_检查框状态被改变
.参数 表项索引, 整数型
.参数 检查框状态, 整数型
.局部变量 n1, 整数型

.如果 (检查框状态 ＝ 1)
    .计次循环首 (超级列表框1.取列数 (), n1)
        编辑框1.内容 ＝ 编辑框1.内容 ＋ 超级列表框1.取标题 (表项索引, n1 － 1)
    .计次循环尾 ()

.否则


    .计次循环首 (超级列表框1.取列数 (), n1)
        编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, 超级列表框1.取标题 (表项索引, n1 － 1), , , , 真)
    .计次循环尾 ()


.如果结束

943569511

123.e (4.02 KB, 下载次数: 2)

2017-6-20 19:22 上传

点击文件名下载附件

不知道是不是你想要的

xiaowg

11.e (4.27 KB, 下载次数: 4)

2017-6-20 19:26 上传

点击文件名下载附件

943569511

123.e (4.13 KB, 下载次数: 5)

2017-6-20 19:34 上传

点击文件名下载附件

刚才那个写错了，试试这个吧