救救孩子：用复制组件制作多标签浏览器遇到算数问题

哈拉哈拉

救救孩子：用复制组件制作多标签浏览器遇到算数问题
点击新建 高级选择夹会增加子夹，并复制浏览器组件  这个似乎没问题




但是双击子夹这里浏览区组件和浏览区会错位，不能一一对应，比如先删除浏览区1，后面就乱了。

子夹被改变，下面的子程序也有问题，懵逼了。不知从何捋顺起来。

下面是几个关键的子程序，但看代码应该是看不懂的，麻烦下载一下源码帮忙解决吧！
编辑区多标签.e (7.37 KB, 下载次数: 7)

昨天 21:27 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
新建浏览区

变量名	类 型	静态	数组	备 注
窗口数	整数型
文档对象j	对象
i	整数型

窗口数 ＝ 取数组成员数 (动态浏览框)
调试输出 (窗口数, 标签选择夹.取子夹数目 ())
如果真 (窗口数 ＞ 9)
信息框 (“程序限制最多打开10个窗口”, 0, “错误”)
返回 ()
重定义数组 (动态浏览框, 真, 窗口数 ＋ 1)
复制窗口组件 (互联网浏览器1, 动态浏览框 [窗口数 ＋ 1])
计次循环首 (窗口数 ＋ 1, i)
动态浏览框 [i].可视 ＝ 假
计次循环尾 ()
新建计次 ＝ 新建计次 ＋ 1
标签选择夹.加入子夹 (“浏览区” ＋ 到文本 (新建计次), , , , )
标签选择夹.现行子夹 ＝ 标签选择夹.取子夹数目 () － 1
动态浏览框 [窗口数 ＋ 1].可视 ＝ 真
动态浏览框 [窗口数 ＋ 1].浏览 (“about:blank”, , , )
动态浏览框 [窗口数 ＋ 1].左边 ＝ 8
动态浏览框 [窗口数 ＋ 1].顶边 ＝ 32
动态浏览框 [窗口数 ＋ 1].获取焦点 ()
动态浏览框 [窗口数 ＋ 1].取网页文档对象 (文档对象j)
延迟 (111)
文档对象j.读对象型属性 (“body”, ).写属性 (“innerHTML”, 到文本 (新建计次))

i支持库列表	支持库注释
spec	特殊功能支持库
iext3	扩展界面支持库三
WebBrowser2	WEB浏览器

.版本 2<br /> .支持库 spec<br /> .支持库 iext3<br /> .支持库 WebBrowser2<br /> <br /> .子程序 新建浏览区<br /> .局部变量 窗口数, 整数型<br /> .局部变量 文档对象j, 对象<br /> .局部变量 i, 整数型<br /> <br /> 窗口数 ＝ 取数组成员数 (动态浏览框)<br /> <br /> 调试输出 (窗口数, 标签选择夹.取子夹数目 ())<br /> .如果真 (窗口数 ＞ 9)<br />     信息框 (“程序限制最多打开10个窗口”, 0, “错误”)<br />     返回 ()<br /> .如果真结束<br /> 重定义数组 (动态浏览框, 真, 窗口数 ＋ 1)<br /> 复制窗口组件 (互联网浏览器1, 动态浏览框 [窗口数 ＋ 1])<br /> <br /> .计次循环首 (窗口数 ＋ 1, i)<br />     动态浏览框 <i>.可视 ＝ 假<br /> .计次循环尾 ()<br /> 新建计次 ＝ 新建计次 ＋ 1<br /> 标签选择夹.加入子夹 (“浏览区” ＋ 到文本 (新建计次), , , , )<br /> 标签选择夹.现行子夹 ＝ 标签选择夹.取子夹数目 () － 1<br /> 动态浏览框 [窗口数 ＋ 1].可视 ＝ 真<br /> 动态浏览框 [窗口数 ＋ 1].浏览 (“about:blank”, , , )<br /> 动态浏览框 [窗口数 ＋ 1].左边 ＝ 8<br /> 动态浏览框 [窗口数 ＋ 1].顶边 ＝ 32<br /> 动态浏览框 [窗口数 ＋ 1].获取焦点 ()<br /> 动态浏览框 [窗口数 ＋ 1].取网页文档对象 (文档对象j)<br /> 延迟 (111)<br /> 文档对象j.读对象型属性 (“body”, ).写属性 (“innerHTML”, 到文本 (新建计次))

  

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

变量名	类 型	静态	数组	备 注
a	整数型
i	整数型
窗口数	整数型

a ＝ 标签选择夹.现行子夹
如果真 (a ＜ 0)
a ＝ 0

窗口数 ＝ 取数组成员数 (动态浏览框)
计次循环首 (窗口数, i)
动态浏览框 [i].可视 ＝ 假
计次循环尾 ()
如果真 (a ≠ 0)
动态浏览框 [a].可视 ＝ 真

i支持库列表	支持库注释
iext3	扩展界面支持库三
WebBrowser2	WEB浏览器

.版本 2<br /> .支持库 iext3<br /> .支持库 WebBrowser2<br /> <br /> .子程序 _标签选择夹_子夹被改变<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 窗口数, 整数型<br /> <br /> a ＝ 标签选择夹.现行子夹<br /> <br /> .如果真 (a ＜ 0)<br />     a ＝ 0<br /> .如果真结束<br /> <br /> 窗口数 ＝ 取数组成员数 (动态浏览框)<br /> .计次循环首 (窗口数, i)<br />     动态浏览框 <i>.可视 ＝ 假<br /> .计次循环尾 ()<br /> <br /> <br /> .如果真 (a ≠ 0)<br />     动态浏览框 [a].可视 ＝ 真<br /> .如果真结束

  

子程序名	返回值类型	公开	备 注
关闭浏览区

变量名	类 型	静态	数组	备 注
a	整数型			标签选择夹.现行子夹
窗口数	整数型
i	整数型

a ＝ 标签选择夹.现行子夹
如果真 (a ≠ 0)
标签选择夹.删除子夹 (a)
标签选择夹.现行子夹 ＝ a － 1
' 动态浏览框 [a ＋ 1].销毁 ()
删除成员 (动态浏览框, a ＋ 1, 1)
调试输出 (a, 取数组成员数 (动态浏览框))
窗口数 ＝ 取数组成员数 (动态浏览框)
计次循环首 (窗口数, i)
动态浏览框 [i].可视 ＝ 假
计次循环尾 ()
如果真 (a ≠ 1 且 a ≠ 0)
动态浏览框 [a].可视 ＝ 真

. ' 如果真 (a ＝ 1)
' 互联网浏览器1.可视 ＝ 真

i支持库列表	支持库注释
iext3	扩展界面支持库三
spec	特殊功能支持库
WebBrowser2	WEB浏览器

.版本 2<br /> .支持库 iext3<br /> .支持库 spec<br /> .支持库 WebBrowser2<br /> <br /> .子程序 关闭浏览区<br /> .局部变量 a, 整数型, , , 标签选择夹.现行子夹<br /> .局部变量 窗口数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> a ＝ 标签选择夹.现行子夹<br /> <br /> .如果真 (a ≠ 0)<br /> <br />     标签选择夹.删除子夹 (a)<br />     标签选择夹.现行子夹 ＝ a － 1<br />     ' 动态浏览框 [a ＋ 1].销毁 ()<br />     删除成员 (动态浏览框, a ＋ 1, 1)<br /> <br /> .如果真结束<br /> 调试输出 (a, 取数组成员数 (动态浏览框))<br /> 窗口数 ＝ 取数组成员数 (动态浏览框)<br /> <br /> <br /> .计次循环首 (窗口数, i)<br />     动态浏览框 <i>.可视 ＝ 假<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .如果真 (a ≠ 1 且 a ≠ 0)<br />     动态浏览框 [a].可视 ＝ 真<br /> .如果真结束<br /> <br /> .' 如果真 (a ＝ 1)<br />     ' 互联网浏览器1.可视 ＝ 真<br /> .如果真结束

补充内容 (2024-10-21 22:06):
需要无论怎么新建或是删除子夹，互联网浏览器组件都能和子夹一一对应。目前特殊情况下增减后不能一一对应的。

frankiy

给你一个例子吧。你的源码里有不可识别的内容。

小吻

什么问题 能清楚点吗？

小吻

是浏览区1,2,3,4,5这个乱序了吗？

ddx2131

前来学习观摩

哈拉哈拉

小吻 发表于 2024-10-21 21:50
是浏览区1,2,3,4,5这个乱序了吗？

就是无论怎么新建或是删除子夹，互联网浏览器组件都能和子夹一一对应，
现在代码问题是，特殊情况下不能一一对应的。

小吻

ok 改好了了

static101

这就是典型的数组成员动态删除问题啊

Suky

选择夹的子夹索引是从0开始，数组的下标是从1开始
两者的关系你要理清才不会出错

建议以现行子夹的索引为参考，去增删数组成员，子夹发生变化时，需要操作的数组成员下标为现行子夹索引加1

子夹被改变时，建议不要做数组循环，而是以上一个子夹索引和当前子夹索引为基础进行操作
之前的索引进行不可视、删除数组成员等操作，现行子夹则反之，可以提高效率
当前的这些子程序，建议直接重写

哈拉哈拉

小吻 发表于 2024-10-21 22:27
ok 改好了了

这个我试过，特殊情况还是会不行，可能我还是关系没捋顺，一会试试