多选框的问题

aPPGGBond

我有30个选择框   能不能用遍历写出  如果选择10个之内的选择框 可以直接运行下面的程序 超过10个就无法执行

一个个写太费时间了 问下可不可以遍历写出来

菊部变暖

  

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

变量名	类 型	静态	数组	备 注
寻找句柄	整数型
数量	整数型
计次	整数型
选择框变量	选择框
判断变量	整数型

寻找句柄 ＝ 寻找组件 (_启动窗口, , “选择框”, , )
数量 ＝ 取找到组件数目 (寻找句柄)
计次循环首 (数量, 计次)
选择框变量 ＝ 取所找到组件 (寻找句柄, 计次 － 1)
如果真 (选择框变量.选中)
判断变量 ＝ 判断变量 ＋ 1

计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
如果真 (判断变量 ＞ 10)
调试输出 (“超过十个了”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 寻找句柄, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 选择框变量, 选择框<br /> .局部变量 判断变量, 整数型<br /> <br /> 寻找句柄 ＝ 寻找组件 (_启动窗口, , “选择框”, , )<br /> 数量 ＝ 取找到组件数目 (寻找句柄)<br /> .计次循环首 (数量, 计次)<br />     选择框变量 ＝ 取所找到组件 (寻找句柄, 计次 － 1)<br />     .如果真 (选择框变量.选中)<br />         判断变量 ＝ 判断变量 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (寻找句柄)<br /> .如果真 (判断变量 ＞ 10)<br />     调试输出 (“超过十个了”)<br /> .如果真结束

850536360

用数组存放

   调用格式： 〈逻辑型〉 复制窗口组件 （通用型 欲被复制的窗口组件，通用型变量 存放新创建组件的变量） - 系统核心支持库->其他
    英文名称：CopyWinUnit
    复制创建与指定窗口组件设计状态完全一致的新组件。该被复制组件将放在原组件的下面，其事件被自动转移到原组件上。如果复制时被复制窗口组件所在的窗口尚未被载入，那么复制出来的窗口组件也不会被立即创建，而会等到其所在窗口将来被载入时一并创建。并且此时复制出来的窗口组件将永久存在，就好象是用户在设计窗口时所加入的一样，不会因为其所在窗口被销毁而被抛弃；如果复制时被复制窗口组件所在的窗口已经被载入，该组件会被立即创建，但此时无论该组件的“可视”属性是真还是假，创建后的单元都将不会被显示，以便于用户进行属性调整。此时复制出来的窗口组件为临时存在，在其所在窗口被销毁后，此窗口组件将被抛弃，下次再载入原窗口时此窗口组件将不复存在。成功返回真，失败返回假。本命令为中级命令。
    参数<1>的名称为“欲被复制的窗口组件”，类型为“通用型（all）”。参数值不能为窗口本身、窗口菜单项组件、选择夹窗口组件。
    参数<2>的名称为“存放新创建组件的变量”，类型为“通用型（all）”，提供参数shuj时只能提供变量。该变量shuj类型必须与被复制窗口组件shuj类型完全一致，否则命令会失败。

    操作系统需求： Windows

Heisenberg

窗口_枚举
+
外部选择框_取状态

aPPGGBond

雨鱼 发表于 2020-6-4 01:15
[e=0].版本 2
.支持库 spec

谢谢你又让我学到新的写法