关于删除复制组件的问题【跪求大佬解惑】

z5055

新手做了一个界面程序，用到了组件复制的功能，在高级选择夹来回切换的时候，根据选择夹的的子夹信息不同，复制出不同的按钮出来
但是，发现，刚启动的时候，界面切换以及按钮组件显示正常，但是倒着来切换的时候，就出现异常了
望大佬帮忙解惑，谢谢！！！

Suky

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 关于删除复制组件的问题【跪求大佬解惑】
' [url]https://bbs.125.la/forum.php?mod=viewthread&tid=14793056[/url]
' (出处: 精易论坛)
高级选择夹1.现行子夹 ＝ 0

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

变量名	类 型	静态	数组	备 注
按钮	按钮

按钮 ＝ 取事件组件 ()
调试输出 (按钮.标记, 按钮.标题)

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹被改变

变量名	类 型	静态	数组	备 注
已激活子夹	整数型		0
n	整数型
寻找句柄	整数型
按钮	按钮

' --------------------搜索高级选择夹内所有按钮组件，用标记判断是否是当前子夹的按钮，并控制组件可视状态--------------------
寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )
计次循环首 (取找到组件数目 (寻找句柄), n)
按钮 ＝ 取所找到组件 (寻找句柄, n － 1)
' 按钮.可视 ＝ 选择 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1), 真, 假)
按钮.可视 ＝ 取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1)  ' 与上面一行效果相同，写法不同
' 调试输出 (按钮.标记, 按钮.标题, 按钮.可视)
计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
' --------------------判断子夹是否已激活过--------------------
计次循环首 (取数组成员数 (已激活子夹), n)
如果真 (高级选择夹1.现行子夹 ＝ 已激活子夹 [n])
返回 ()  ' 已激活直接终止下一步，不执行后面的复制操作

计次循环尾 ()
加入成员 (已激活子夹, 高级选择夹1.现行子夹)  ' 子夹首次激活，添加到已激活数组中
' --------------------子夹首次激活，执行复制按钮操作-------------------------------
复制按钮操作 (高级选择夹1.现行子夹 ＋ 1)  ' 子夹索引从0开始

子程序名	返回值类型	公开	备 注
复制按钮操作
参数名	类 型	参考	可空	数组	备 注
复制数量	整数型

变量名	类 型	静态	数组	备 注
复制按钮	按钮		0
n	整数型

重定义数组 (复制按钮, 假, 复制数量)
计次循环首 (复制数量, n)
复制窗口组件 (按钮_母版, 复制按钮 [n])
复制按钮 [n].置父窗口 (高级选择夹1)
复制按钮 [n].可视 ＝ 真
复制按钮 [n].标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (n)  ' 改了标记，方便分辨
复制按钮 [n].移动 (高级选择夹1.左边 ＋ 1 ��� (100 ＋ 10) �� (n － 1), 高级选择夹1.顶边 ＋ 30, 100, 20)
复制按钮 [n].标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (n)  ' 改了标题，方便测试时检查
事件转移 (复制按钮 [n], 按钮_母版)  ' 事件转移，用于写按钮事件代码
计次循环尾 ()

i支持库列表	支持库注释
iext3	扩展界面支持库三
spec	特殊功能支持库

.版本 2<br /> .支持库 iext3<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 关于删除复制组件的问题【跪求大佬解惑】<br /> ' <a href="https://bbs.125.la/forum.php?mod=viewthread&tid=14793056" target="_blank">https://bbs.125.la/forum.php?mod=viewthread&tid=14793056</a><br /> ' (出处: 精易论坛)<br /> <br /> 高级选择夹1.现行子夹 ＝ 0<br /> <br /> .子程序 _按钮_母版_被单击<br /> .局部变量 按钮, 按钮<br /> <br /> 按钮 ＝ 取事件组件 ()<br /> 调试输出 (按钮.标记, 按钮.标题)<br /> <br /> .子程序 _高级选择夹1_子夹被改变<br /> .局部变量 已激活子夹, 整数型, 静态, "0"<br /> .局部变量 n, 整数型<br /> .局部变量 寻找句柄, 整数型<br /> .局部变量 按钮, 按钮<br /> <br /> ' --------------------搜索高级选择夹内所有按钮组件，用标记判断是否是当前子夹的按钮，并控制组件可视状态--------------------<br /> 寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )<br /> .计次循环首 (取找到组件数目 (寻找句柄), n)<br />     按钮 ＝ 取所找到组件 (寻找句柄, n － 1)<br />     ' 按钮.可视 ＝ 选择 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1), 真, 假)<br />     按钮.可视 ＝ 取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1)  ' 与上面一行效果相同，写法不同<br />     ' 调试输出 (按钮.标记, 按钮.标题, 按钮.可视)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (寻找句柄)<br /> ' --------------------判断子夹是否已激活过--------------------<br /> .计次循环首 (取数组成员数 (已激活子夹), n)<br />     .如果真 (高级选择夹1.现行子夹 ＝ 已激活子夹 [n])<br />         返回 ()  ' 已激活直接终止下一步，不执行后面的复制操作<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 加入成员 (已激活子夹, 高级选择夹1.现行子夹)  ' 子夹首次激活，添加到已激活数组中<br /> ' --------------------子夹首次激活，执行复制按钮操作-------------------------------<br /> 复制按钮操作 (高级选择夹1.现行子夹 ＋ 1)  ' 子夹索引从0开始<br /> <br /> .子程序 复制按钮操作<br /> .参数 复制数量, 整数型<br /> .局部变量 复制按钮, 按钮, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 重定义数组 (复制按钮, 假, 复制数量)<br /> .计次循环首 (复制数量, n)<br />     复制窗口组件 (按钮_母版, 复制按钮 [n])<br />     复制按钮 [n].置父窗口 (高级选择夹1)<br />     复制按钮 [n].可视 ＝ 真<br />     复制按钮 [n].标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (n)  ' 改了标记，方便分辨<br />     复制按钮 [n].移动 (高级选择夹1.左边 ＋ 1 ＋ (100 ＋ 10) × (n － 1), 高级选择夹1.顶边 ＋ 30, 100, 20)<br />     复制按钮 [n].标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (n)  ' 改了标题，方便测试时检查<br />     事件转移 (复制按钮 [n], 按钮_母版)  ' 事件转移，用于写按钮事件代码<br /> .计次循环尾 ()

整理了一下     这样子     @笨来无一悟   

Suky

加个变量，加个流程   判断子夹是否首次激活
首次激活才复制组件   非首次激活就跳过复制操作

补充内容 (2023-8-19 01:02):
在将改变子夹事件子程序中，置当前子夹按钮可视为假，置目标子夹按钮可视为真

Suky

@笨来无一悟
单击按钮的时候判断当前子夹是啥
这要怎么操作   
我麻了

笨来无一悟

@Suky 测试艾特

Suky

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
已激活子夹	整数型	0
上次的数量	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

高级选择夹1.现行子夹 ＝ 0

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

变量名	类 型	静态	数组	备 注
按钮	按钮

按钮 ＝ 取事件组件 ()
调试输出 (按钮.标记, 按钮.标题)

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹被改变

变量名	类 型	静态	数组	备 注
index	整数型
n	整数型
寻找句柄	整数型
按钮	按钮
标记左边	文本型

' 搜索高级选择夹内所有按钮组件，用标记判断是否是当前子夹的按钮，并控制组件可视状态
调试输出 (“—————————————————————————”)
寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )
计次循环首 (取找到组件数目 (寻找句柄), n)
按钮 ＝ 取所找到组件 (寻找句柄, n － 1)
按钮.可视 ＝ 选择 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1), 真, 假)
调试输出 (按钮.标记, 按钮.标题, 按钮.可视)
计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
调试输出 (“++++++++++++++++++++++++++++++++++++++++++++++++++++”)
' 判断子夹是否已激活过----------------------------------------
计次循环首 (取数组成员数 (已激活子夹), n)
如果真 (高级选择夹1.现行子夹 ＝ 已激活子夹 [n])
返回 ()  ' 已激活直接终止下一步，不执行后面的复制操作

计次循环尾 ()
加入成员 (已激活子夹, 高级选择夹1.现行子夹)  ' 子夹首次激活，添加到已激活数组中
' 子夹首次激活，执行复制按钮操作-------------------------------
' index ＝ 0   底下要给这个变量赋值的话，无需先置0，直接赋值即可
index ＝ 高级选择夹1.现行子夹 ＋ 1
' 调试输出 (到文本 (index))
复制按钮操作 (index)

子程序名	返回值类型	公开	备 注
复制按钮操作
参数名	类 型	参考	可空	数组	备 注
复制数量	整数型

变量名	类 型	静态	数组	备 注
复制按钮	按钮		0
n	整数型

重定义数组 (复制按钮, 假, 复制数量)
计次循环首 (复制数量, n)
复制窗口组件 (按钮_母版, 复制按钮 [n])
复制按钮 [n].置父窗口 (高级选择夹1)
复制按钮 [n].可视 ＝ 真
复制按钮 [n].标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (n)  ' 改了标记，方便分辨
复制按钮 [n].移动 (高级选择夹1.左边 ＋ 1 ��� (100 ＋ 10) �� (n － 1), 高级选择夹1.顶边 ＋ 30, 100, 20)
复制按钮 [n].标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (n)  ' 改了标题，方便测试时检查
事件转移 (复制按钮 [n], 按钮_母版)  ' 事件转移，用于写按钮事件代码
计次循环尾 ()
' 上次的数量 ＝ 复制数量

i支持库列表	支持库注释
iext3	扩展界面支持库三
spec	特殊功能支持库

.版本 2<br /> .支持库 iext3<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 已激活子夹, 整数型, , "0"<br /> .程序集变量 上次的数量, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 高级选择夹1.现行子夹 ＝ 0<br /> <br /> .子程序 _按钮_母版_被单击<br /> .局部变量 按钮, 按钮<br /> <br /> 按钮 ＝ 取事件组件 ()<br /> 调试输出 (按钮.标记, 按钮.标题)<br /> <br /> .子程序 _高级选择夹1_子夹被改变<br /> .局部变量 index, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 寻找句柄, 整数型<br /> .局部变量 按钮, 按钮<br /> .局部变量 标记左边, 文本型<br /> <br /> ' 搜索高级选择夹内所有按钮组件，用标记判断是否是当前子夹的按钮，并控制组件可视状态<br /> 调试输出 (“—————————————————————————”)<br /> 寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )<br /> .计次循环首 (取找到组件数目 (寻找句柄), n)<br />     按钮 ＝ 取所找到组件 (寻找句柄, n － 1)<br />     按钮.可视 ＝ 选择 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1), 真, 假)<br />     调试输出 (按钮.标记, 按钮.标题, 按钮.可视)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (寻找句柄)<br /> 调试输出 (“++++++++++++++++++++++++++++++++++++++++++++++++++++”)<br /> ' 判断子夹是否已激活过----------------------------------------<br /> .计次循环首 (取数组成员数 (已激活子夹), n)<br />     .如果真 (高级选择夹1.现行子夹 ＝ 已激活子夹 [n])<br />         返回 ()  ' 已激活直接终止下一步，不执行后面的复制操作<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 加入成员 (已激活子夹, 高级选择夹1.现行子夹)  ' 子夹首次激活，添加到已激活数组中<br /> ' 子夹首次激活，执行复制按钮操作-------------------------------<br /> ' index ＝ 0   底下要给这个变量赋值的话，无需先置0，直接赋值即可<br /> index ＝ 高级选择夹1.现行子夹 ＋ 1<br /> ' 调试输出 (到文本 (index))<br /> 复制按钮操作 (index)<br /> <br /> .子程序 复制按钮操作<br /> .参数 复制数量, 整数型<br /> .局部变量 复制按钮, 按钮, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 重定义数组 (复制按钮, 假, 复制数量)<br /> .计次循环首 (复制数量, n)<br />     复制窗口组件 (按钮_母版, 复制按钮 [n])<br />     复制按钮 [n].置父窗口 (高级选择夹1)<br />     复制按钮 [n].可视 ＝ 真<br />     复制按钮 [n].标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (n)  ' 改了标记，方便分辨<br />     复制按钮 [n].移动 (高级选择夹1.左边 ＋ 1 ＋ (100 ＋ 10) × (n － 1), 高级选择夹1.顶边 ＋ 30, 100, 20)<br />     复制按钮 [n].标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (n)  ' 改了标题，方便测试时检查<br />     事件转移 (复制按钮 [n], 按钮_母版)  ' 事件转移，用于写按钮事件代码<br /> .计次循环尾 ()<br /> <br /> ' 上次的数量 ＝ 复制数量

demo2023年8月19日 013002.e (572.11 KB, 下载次数: 3)

2023-8-19 01:30 上传

点击文件名下载附件

写了个处理方案    不过感觉不是很完美    仅供参考
主要我不知道怎么取单一子夹内的组件


补充内容 (2023-8-19 01:34):
置父窗口 (高级选择夹1)，只是把按钮放到高级选择夹里了，但是没确定放哪个子夹，这是个问题

Suky

笨来无一悟 发表于 2023-8-19 01:26
@Suky 测试艾特

“单击按钮的时候判断这个 高级选择夹.现行子夹 = 多少 不需要复制 复制把事情搞复杂了... ”

@笨来无一悟
懒得编辑组件界面或有其他原因   所以用复制组件
他碰到的问题是   复制组件置父之后    后面置父的组件会把前面的覆盖
导致前面的组件被遮挡无法看见无法点击

今时以至遂渐开

楼上正解