我做了个选择列表框全选的模块，但是不知道怎样判断是否已全选

xlz836019736

源码如下
[e]
.版本 2
.程序集 程序集1
.子程序 选择列表框全选, , 公开
.参数 欲全选的选择列表框, 选择列表框
.参数 选中状态, 逻辑型, 可空, 真:选中 假:取消选中 可空为假
.局部变量 选中项目
.计次循环首 (欲全选的选择列表框.取项目数 (), 选中项目)
    选中项目 ＝ 选中项目 － 1
    .如果 (是否为空 (选中状态) ＝ 真)
        欲全选的选择列表框.选中项目 (选中项目, 真)
    .否则
        欲全选的选择列表框.选中项目 (选中项目, 选中状态)
    .如果结束
.计次循环尾 ()

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值
.子程序 _临时子程序
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
[/e]

[e]
.版本 2
.子程序 _按钮1_被单击
选择列表框全选 (选择列表框1, 假)
[/e]

果子

选择列表框.是否被选中()
有这个命令

exit11

1. .版本 2
   
2. 
   
3. .子程序 _按钮2_被单击
   
4. .局部变量 x, 整数型
   
5. .局部变量 全选, 逻辑型
   
6. 
   
7. 
   
8. .计次循环首 (选择列表框1.取项目数 (), x) ' 直接设置，不检查是否被选中
   
9. 选择列表框1.选中项目 (x － 1, )
   
10. .计次循环尾 ()
    
11. 
    
12. ' ===分割线==== 根据需要选择上面或者下面的代码
    
13. 
    
14. .计次循环首 (选择列表框1.取项目数 (), x)
    
15. .如果真 (选择列表框1.是否被选中 (x － 1) ＝ 假) ' 检查是否被选中
    
16. 选择列表框1.选中项目 (x － 1, ) ' 未被选中则设置为选中
    
17. 全选 ＝ 假 ' 根据这个逻辑变量可以返回得知是否全被选中
    
18. ' 跳出循环 ()’如果只是检查是否全选，就加上这个，不继续检查后面的列表框
    
19. .如果真结束
    
20. 
    
21. .计次循环尾 ()
    
22. .如果真 (全选 ＝ 假)
    
23. 信息框 (“列表框未全部选中”, 0, )
    
24. .如果真结束
    
25. 
    

复制代码

易新新

用一个变量记录  是否选中，，再和项目数比较。