很有趣的取组件例子,也有个难题来看看?

luozhilai

在网看到一个叫子涵的写了一份源码,我个人觉得,这么写好像有点多余,选择框不管你点中哪个全选上.那么问题来了.我想说的是,选择框单二的时候编辑框二留空,其他的编辑框全选,选择框五选中时.编辑框五留空,其他的编辑全选上.这有办法实现吗?如果说一行一行的写要是有十个这样的分组框不是要写几百行了?


补充内容 (2017-5-11 16:58):
写太快了选错字,选择框单二,这个应该是选择框选中

补充内容 (2017-5-11 16:58):
我去还打错.应该是选择框二选中

exit11

luozhilai 发表于 2017-5-11 17:19
你这个XZK说的是哪个....

.版本 2

.子程序 _事件选择框_被单击
.局部变量 计次, 整数型
.局部变量 xzk, 选择框

.计次循环首 (10, 计次)
    xzk ＝ 取标记组件 (10 ＋ 计次)
    xzk.选中 ＝ 选择 (xzk.选中 ＝ 真, 假, 真)
.计次循环尾 ()

石榴熟了

选择框单二  是什么意思

luozhilai

qmhmsn 发表于 2017-5-11 16:52
选择框单二  是什么意思

写太快了打错了,不是单二,是选中的意思.

小淡

可以用复制窗口组件试试

exit11

.版本 2

.子程序 改变颜色
.参数 操作方式, 逻辑型, , 真＝改变背景颜色，假＝改变文本颜色
.局部变量 计次, 整数型
.局部变量 xzk, 选择框

' 虽然可以用 连续赋值 (背景颜色器.颜色, 编辑框1.背景颜色, 编辑框2.背景颜色) 命令来批量修改编辑框属性，但如果有很多编辑框时这样的操作将显得很累赘。所以用标记来控制组件在某些情况下很实用。
.计次循环首 (10, 计次)
    xzk ＝ 取标记组件 (10 ＋ 计次)
    .如果真 (xzk.选中 ＝ 真)
        到循环尾 ()
    .如果真结束

    .如果 (操作方式)
        编辑框 [计次].背景颜色 ＝ 背景颜色器.颜色
    .否则
        编辑框 [计次].文本颜色 ＝ 文本颜色器.颜色
    .如果结束

luozhilai

大至上想到这么一个笨方法.把编辑框1-10全弄成A1-A10,不过还是一百多行代码

exit11

.版本 2

.子程序 改变颜色
.参数 操作方式, 逻辑型, , 真＝改变背景颜色，假＝改变文本颜色
.局部变量 计次, 整数型
.局部变量 xzk, 选择框
.局部变量 bjk, 编辑框

.计次循环首 (10, 计次)
    xzk ＝ 取标记组件 (10 ＋ 计次)
    bjk ＝ 取标记组件 (计次)
    .如果真 (xzk.选中 ＝ 真)
        bjk.文本颜色 ＝ #黑色
        bjk.背景颜色 ＝ #白色
        到循环尾 ()
    .如果真结束

    .如果 (操作方式)
        编辑框 [计次].背景颜色 ＝ 背景颜色器.颜色
    .否则
        编辑框 [计次].文本颜色 ＝ 文本颜色器.颜色
    .如果结束

.计次循环尾 ()

被选中选择框对应的编辑框的 颜色被赋值为初始颜色

luozhilai

exit11 发表于 2017-5-11 17:06
.版本 2

.子程序 改变颜色

就是因为实用.不过你这个不也是全选上了吗?

luozhilai

exit11 发表于 2017-5-11 17:11
.版本 2

.子程序 改变颜色

你这个XZK说的是哪个....