[求解]关于高级选择框切换删除对应按钮不正常显示

z5055

[求解]关于高级选择框切换删除对应按钮不正常显示
问题描述：
高级选择夹，切换子夹，动态显示复制按钮（已有大佬帮忙解决），新加了一个想法，就是
右键菜单-》删除鼠标指定按钮且 再此重新切换子夹后，已被删除的按钮不再出现
望好心大佬帮忙解析
精币不多了，大佬别嫌弃！！！



补充内容 (2023-8-19 13:04):
帖子插入源码没成功，回复贴我插入下，大佬帮忙解惑，谢谢！

Suky

  

子程序名	返回值类型	公开	备 注
_添加_被选择

变量名	类 型	静态	数组	备 注
按钮	按钮
寻找句柄	整数型
n	整数型
组件数	整数型
按钮序数	整数型
标记max	整数型
复制按钮	按钮

寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )
计次循环首 (取找到组件数目 (寻找句柄), n)
按钮 ＝ 取所找到组件 (寻找句柄, n － 1)
如果真 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1))
组件数 ＝ 组件数 ＋ 1
按钮序数 ＝ 到整数 (取文本右边 (按钮.标记, 取文本长度 (按钮.标记) － 1))
如果真 (按钮序数 ＞ 标记max)
标记max ＝ 按钮序数


计次循环尾 ()
清除组件寻找句柄 (寻找句柄)
复制窗口组件 (按钮_母版, 复制按钮)
复制按钮.置父窗口 (高级选择夹1)
复制按钮.可视 ＝ 真
复制按钮.标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (标记max ＋ 1)
复制按钮.移动 (高级选择夹1.左边 ＋ 1 ��� (100 ＋ 10) × 组件数, 高级选择夹1.顶边 ＋ 30, 100, 20)
复制按钮.标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (标记max ＋ 1)
事件转移 (复制按钮, 按钮_母版)

i支持库列表	支持库注释
iext3	扩展界面支持库三

.版本 2<br /> .支持库 iext3<br /> <br /> .子程序 _添加_被选择<br /> .局部变量 按钮, 按钮<br /> .局部变量 寻找句柄, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 组件数, 整数型<br /> .局部变量 按钮序数, 整数型<br /> .局部变量 标记max, 整数型<br /> .局部变量 复制按钮, 按钮<br /> <br /> 寻找句柄 ＝ 寻找组件 (高级选择夹1, , “按钮”, , )<br /> .计次循环首 (取找到组件数目 (寻找句柄), n)<br />     按钮 ＝ 取所找到组件 (寻找句柄, n － 1)<br />     .如果真 (取文本左边 (按钮.标记, 1) ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1))<br />         组件数 ＝ 组件数 ＋ 1<br />         按钮序数 ＝ 到整数 (取文本右边 (按钮.标记, 取文本长度 (按钮.标记) － 1))<br />         .如果真 (按钮序数 ＞ 标记max)<br />             标记max ＝ 按钮序数<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (寻找句柄)<br /> <br /> 复制窗口组件 (按钮_母版, 复制按钮)<br /> 复制按钮.置父窗口 (高级选择夹1)<br /> 复制按钮.可视 ＝ 真<br /> 复制按钮.标记 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ 到文本 (标记max ＋ 1)<br /> 复制按钮.移动 (高级选择夹1.左边 ＋ 1 ＋ (100 ＋ 10) × 组件数, 高级选择夹1.顶边 ＋ 30, 100, 20)<br /> 复制按钮.标题 ＝ 到文本 (高级选择夹1.现行子夹 ＋ 1) ＋ “-” ＋ 到文本 (标记max ＋ 1)<br /> 事件转移 (复制按钮, 按钮_母版)

盲猜你还需要这个

Suky

z5055 发表于 2023-8-19 15:05
6666.不过这样操作的话，没有把按钮重新排序，删除中间的话，跟少了一个一样，没有按顺序重新排 ...

123.e (1.63 MB, 下载次数: 7)

2023-8-19 20:50 上传

点击文件名下载附件

z5055

这是源码

Suky

z5055 发表于 2023-8-19 13:04
这是源码

子程序    _按钮_母版_鼠标右键被按下（）   下的
按钮.可视 ＝ 假   改成    按钮.销毁 ()

Suky

碎片时间看论坛，没空专门教学，在这回复你，私信就不回了

z5055

Suky 发表于 2023-8-19 13:51
子程序    _按钮_母版_鼠标右键被按下（）   下的
按钮.可视 ＝ 假   改成    按钮.销毁 ()
...

6666.不过这样操作的话，没有把按钮重新排序，删除中间的话，跟少了一个一样，没有按顺序重新排列

Suky

z5055 发表于 2023-8-19 15:05
6666.不过这样操作的话，没有把按钮重新排序，删除中间的话，跟少了一个一样，没有按顺序重新排 ...

删除之前取标记
删除之后   寻找组件   判断按钮在删除目标同一个子夹，标记在删除的组件标记后面的，逐一移动按钮位置

z5055

Suky 发表于 2023-8-19 21:02
[e=1].版本 2
.支持库 iext3

你就是个光啊！！！额滴神啊！