对选择列表框实现一键选中取消,可以推广到超级列表框等组件。
选中取消选择列表框源码
.版本 2
.局部变量 m, , , , 511遇见论坛(bbs.511yj.com)
.局部变量 n, , , , 511遇见论坛(bbs.511yj.com)
.判断开始 (全选.标题 = “全选”)
m = 选择列表框1.取项目数 ()
.计次循环首 (m, n)
选择列表框1.选中项目 (n - 1, )
.计次循环尾 ()
' 511遇见论坛(bbs.511yj.com)
全选.标题 = “取消”
.默认
全选.标题 = “全选”
m = 选择列表框1.取项目数 ()
.计次循环首 (m, n)
选择列表框1.选中项目 (n - 1, 假)
.计次循环尾 ()
' 511遇见论坛(bbs.511yj.com)