复制窗口可视的问题

chenyuqi1230

写的脑袋发懵，复制窗口组件，是搞定了。新的问题又来了，比如，我们点击复制出来的第二个按钮，那么第二个按钮可视=真，其他复制出来的按钮可视=假。这个要怎么处理呢，本质上是想做成卷帘形式的。想仿一个QT的树形框，因为QT的树形框，非常像超列+属性框的结合。a'a


补充内容 (2025-3-27 10:03):
想写成，自动伸缩的。跟超列一起调用，打开，超列跟着一起展开，收缩，超列跟着收缩。类似QT树形框那种。如果有ui好看的，可有偿。谢谢各位老...

补充内容 (2025-3-27 13:42):
.版本 2
.支持库 iext
.支持库 iext2

事件选择框 ＝ 取事件组件 ()


超级列表框1.全部删除 ()

.判断开始 (寻找文本 (事件选择框.标题, “-已展开”, , 假) ...

Ruang

组件复制.e (4.98 KB, 下载次数: 1)

2025-3-27 09:27 上传

点击文件名下载附件
复制组件，这边有个模板，你可以 参考一下

  

子程序名	返回值类型	公开	备 注
功能_创建组件
参数名	类 型	参考	可空	数组	备 注
目标组件	按钮
数量	整数型

变量名	类 型	静态	数组	备 注
组件	按钮
i	整数型
上一次位置_顶	整数型
上一次位置_左	整数型
偏移位置_顶	整数型
偏移位置_左	整数型

上一次位置_顶 ＝ 按钮1.顶边
上一次位置_左 ＝ 按钮1.左边
偏移位置_顶 ＝ 按钮1.高度 ＋ 20
偏移位置_左 ＝ 按钮1.宽度 ＋ 20
数量 ＝ 数量 － 1
如果真 (数量 ＝ 0)
返回 ()
计次循环首 (数量, i)
复制窗口组件 (目标组件, 组件)
分组框1.高度 ＝ 上一次位置_顶 ＋ 组件.高度 ＋ 20
组件.标记 ＝ 到文本 (i ＋ 1)
组件.顶边 ＝ 上一次位置_顶
组件.左边 ＝ 上一次位置_左 ＋ 偏移位置_左
组件.标题 ＝ “未定义” ＋ 到文本 (i ＋ 1)
组件.可视 ＝ 真
上一次位置_左 ＝ 上一次位置_左 ＋ 偏移位置_左
如果真 (上一次位置_左 ＋ 偏移位置_左 ＋ 偏移位置_左 ＞ _启动窗口.宽度)
上一次位置_左 ＝ 按钮1.左边 － 偏移位置_左
上一次位置_顶 ＝ 上一次位置_顶 ＋ 偏移位置_顶

调试输出 (组件.标记)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 功能_创建组件<br /> .参数 目标组件, 按钮<br /> .参数 数量, 整数型<br /> .局部变量 组件, 按钮<br /> .局部变量 i, 整数型<br /> .局部变量 上一次位置_顶, 整数型<br /> .局部变量 上一次位置_左, 整数型<br /> .局部变量 偏移位置_顶, 整数型<br /> .局部变量 偏移位置_左, 整数型<br /> <br /> 上一次位置_顶 ＝ 按钮1.顶边<br /> 上一次位置_左 ＝ 按钮1.左边<br /> 偏移位置_顶 ＝ 按钮1.高度 ＋ 20<br /> 偏移位置_左 ＝ 按钮1.宽度 ＋ 20<br /> 数量 ＝ 数量 － 1<br /> .如果真 (数量 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (数量, i)<br />     复制窗口组件 (目标组件, 组件)<br />     分组框1.高度 ＝ 上一次位置_顶 ＋ 组件.高度 ＋ 20<br />     组件.标记 ＝ 到文本 (i ＋ 1)<br />     组件.顶边 ＝ 上一次位置_顶<br />     组件.左边 ＝ 上一次位置_左 ＋ 偏移位置_左<br />     组件.标题 ＝ “未定义” ＋ 到文本 (i ＋ 1)<br />     组件.可视 ＝ 真<br />     上一次位置_左 ＝ 上一次位置_左 ＋ 偏移位置_左<br />     .如果真 (上一次位置_左 ＋ 偏移位置_左 ＋ 偏移位置_左 ＞ _启动窗口.宽度)<br />         上一次位置_左 ＝ 按钮1.左边 － 偏移位置_左<br />         上一次位置_顶 ＝ 上一次位置_顶 ＋ 偏移位置_顶<br />     .如果真结束<br /> <br />     调试输出 (组件.标记)<br /> .计次循环尾 ()

补充内容 (2025-3-27 09:30):
需要备注再说吧

yk125

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 按钮数组, 按钮, , "5"

.子程序 __启动窗口_创建完毕
.局部变量 a, 整数型

.计次循环首 (取数组成员数 (按钮数组), a)

    复制窗口组件 (按钮1, 按钮数组 [a])
    事件转移 (按钮数组 [a], 按钮1)
    按钮数组 [a].左边 ＝ 按钮1.左边 ＋ 按钮1.宽度 × a ＋ 5 × (a － 1)
    按钮数组 [a].顶边 ＝ 按钮1.顶边
    按钮数组 [a].可视 ＝ 真
    按钮数组 [a].标记 ＝ 到文本 (a)
    按钮数组 [a].标题 ＝ “复钮” ＋ 到文本 (a)
.计次循环尾 ()



.子程序 _按钮1_被单击
.局部变量 按钮, 按钮
.局部变量 b, 整数型

按钮 ＝ 取事件组件 ()
.计次循环首 (取数组成员数 (按钮数组), b)
    .如果 (按钮数组 [b].标记 ＝ 按钮.标记)
        按钮数组 [b].可视 ＝ 真
    .否则
        按钮数组 [b].可视 ＝ 假
    .如果结束

.计次循环尾 ()

走一回

那问题又来了，当你点击了第二个按钮，只显示 这个按钮后，你又想点击第四个按钮时，怎么点击第四个按钮呢？

补充内容 (2025-3-27 09:21):
直接用卷帘不行吗？

Ruang

可能你复制出来的按钮没有标可视＝真，还有一个情况就是没有位移新按钮组件的位置

chenyuqi1230

走一回 发表于 2025-3-27 09:05
那问题又来了，当你点击了第二个按钮，只显示 这个按钮后，你又想点击第四个按钮时，怎么点击第四个按钮呢 ...

自己不太会ui，卷帘写的一坨。就想用简单的方法搞定了

走一回

chenyuqi1230 发表于 2025-3-27 10:01
自己不太会ui，卷帘写的一坨。就想用简单的方法搞定了

卷帘，如果是固定的菜单，只需要设置好索引号，一般不会出问题的。