易语言选择框全选怎么弄,如果有好几十个选择框要是直接按照最普通的最笨的方法
选择框1.选中
选择框2.选中
选择框3.选中
选择框4.选中
……
选择框60.选中
这样太麻烦了,有什么简便的方法啊
怎么设置最多选择数和取消全选
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕, , , 随机生成 100个项目用以测试
.局部变量 i, 整数型
.计次循环首 (100, i)
选择列表框1.加入项目 (到文本 (i), )
i = i + 1
.计次循环尾 ()
.子程序 _按钮1_被单击, , , 全选被单击就全部选中,如果只最多选择 50 个就计次循环50次就是了就不要循环:选择列表框1.取项目数 () 了
.局部变量 i, 整数型
.计次循环首 (选择列表框1.取项目数 (), i)
选择列表框1.选中项目 (i - 1, 真)
i = i + 1
.计次循环尾 ()
.子程序 _按钮2_被单击, , , 反选被单击就全部取消选中
.局部变量 i, 整数型
.计次循环首 (选择列表框1.取项目数 (), i)
选择列表框1.选中项目 (i - 1, 假)
i = i + 1
.计次循环尾 ()
源码在下面:我的论坛——
http://www.eyylm.com/viewthread.php?tid=673&extra=
给个源码希望不说我做宣传,百度又不支持传附件
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-03-19
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
复制组件 ()
.子程序 复制组件
.局部变量 复制选择框, 选择框
.局部变量 记次, 整数型
.变量循环首 (2, 256, 1, 记次) ' 一共要设置256个标签,原来的是第一个,所以从2开始
复制窗口组件 (选择框1, 复制选择框) ' 把“标签1”复制出来,存放复制出来的组件的变量是“复制标签”这个标签变量
复制选择框.移动 (((记次 - 1) % 16) × 24 + 选择框1.左边, ((记次 - 1) \ 16) × 24 + 选择框1.顶边, , ) ' 把复制出来的组件放到合适的地方。这里用的是一个公式。
复制选择框.可视 = 真 ' 设置复制出来的组件的可视属性为“真”。复制出来的组件与原组件具有相同的属性,但是它并不直接显示在窗口上,需要设定可视为“真”才行。
复制选择框.标记 = 到文本 (记次) ' 设定组件的标记
复制选择框.选中 = 真
.变量循环尾 ()
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
复制组件 ()
.子程序 复制组件
.局部变量 复制选择框, 选择框
.局部变量 记次, 整数型
.变量循环首 (2, 256, 1, 记次) ' 一共要设置256个标签,原来的是第一个,所以从2开始
复制窗口组件 (选择框1, 复制选择框) ' 把“标签1”复制出来,存放复制出来的组件的变量是“复制标签”这个标签变量
复制选择框.移动 (((记次 - 1) % 16) × 24 + 选择框1.左边, ((记次 - 1) \ 16) × 24 + 选择框1.顶边, , ) ' 把复制出来的组件放到合适的地方。这里用的是一个公式。
复制选择框.可视 = 真 ' 设置复制出来的组件的可视属性为“真”。复制出来的组件与原组件具有相同的属性,但是它并不直接显示在窗口上,需要设定可视为“真”才行。
复制选择框.标记 = 到文本 (记次) ' 设定组件的标记
复制选择框.选中 = 真
.变量循环尾 ()
第2个回答 2010-03-21
.版本 2
.局部变量 组件寻找句柄, 整数型
.局部变量 i, 整数型
.局部变量 选择框X, 选择框
组件寻找句柄 = 寻找组件 (_启动窗口, , “选择框”, , )
.计次循环首 (取找到组件数目 (组件寻找句柄), i)
.如果真 (i<=最大选择值)
选择框X = 取所找到组件 (组件寻找句柄, i - 1)
选择框X.选中 = 真 '这里真为全选,假为全部取消
.如果真结束
.计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
.局部变量 组件寻找句柄, 整数型
.局部变量 i, 整数型
.局部变量 选择框X, 选择框
组件寻找句柄 = 寻找组件 (_启动窗口, , “选择框”, , )
.计次循环首 (取找到组件数目 (组件寻找句柄), i)
.如果真 (i<=最大选择值)
选择框X = 取所找到组件 (组件寻找句柄, i - 1)
选择框X.选中 = 真 '这里真为全选,假为全部取消
.如果真结束
.计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)