如何跳转到超级按钮所在页面

学易未精

  

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

子程序名	返回值类型	公开	备 注
重置所有按钮颜色
参数名	类 型	参考	可空	数组	备 注
父容器	窗口

变量名	类 型	静态	数组	备 注
查找句柄	整数型
i	整数型
按钮	超级按钮

查找句柄 ＝ 寻找组件 (父容器, , “超级按钮”, , )
如果真 (查找句柄 ≠ 0)
计次循环首 (取找到组件数目 (查找句柄), i)
按钮 ＝ 取所找到组件 (查找句柄, i － 1)
按钮.通常前景色 ＝ #绿色
计次循环尾 ()
清除组件寻找句柄 (查找句柄)

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

变量名	类 型	静态	数组	备 注
句柄	整数型
组件数	整数型
i	整数型
超级按钮组件	超级按钮
关键词	文本型

重置所有按钮颜色 (_启动窗口)
关键词 ＝ 编辑框1.内容
列表框1.清空 ()
句柄 ＝ 寻找组件 (_启动窗口, , “超级按钮”, , )
组件数 ＝ 取找到组件数目 (句柄)
计次循环首 (组件数, i)
超级按钮组件 ＝ 取所找到组件 (句柄, i － 1)
如果真 (寻找文本 (超级按钮组件.标题, 关键词, , 真) ≠ -1)
列表框1.加入项目 (超级按钮组件.标题, i － 1)
超级按钮组件.通常前景色 ＝ #蓝色
超级按钮组件.点燃前景色 ＝ #蓝色
超级按钮组件.焦点前景色 ＝ #蓝色

计次循环尾 ()
清除组件寻找句柄 (句柄)

子程序名	返回值类型	公开	备 注
_列表框1_双击选择

' 如何才能实现双击列表框 跳转到超级按钮所在页面

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 重置所有按钮颜色<br /> .参数 父容器, 窗口<br /> .局部变量 查找句柄, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 按钮, 超级按钮<br /> <br /> 查找句柄 ＝ 寻找组件 (父容器, , “超级按钮”, , )<br /> .如果真 (查找句柄 ≠ 0)<br />     .计次循环首 (取找到组件数目 (查找句柄), i)<br />         按钮 ＝ 取所找到组件 (查找句柄, i － 1)<br />         按钮.通常前景色 ＝ #绿色<br />     .计次循环尾 ()<br />     清除组件寻找句柄 (查找句柄)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> .局部变量 组件数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 超级按钮组件, 超级按钮<br /> .局部变量 关键词, 文本型<br /> <br /> 重置所有按钮颜色 (_启动窗口)<br /> 关键词 ＝ 编辑框1.内容<br /> 列表框1.清空 ()<br /> 句柄 ＝ 寻找组件 (_启动窗口, , “超级按钮”, , )<br /> 组件数 ＝ 取找到组件数目 (句柄)<br /> <br /> .计次循环首 (组件数, i)<br />     超级按钮组件 ＝ 取所找到组件 (句柄, i － 1)<br />     .如果真 (寻找文本 (超级按钮组件.标题, 关键词, , 真) ≠ -1)<br />         列表框1.加入项目 (超级按钮组件.标题, i － 1)<br />         超级按钮组件.通常前景色 ＝ #蓝色<br />         超级按钮组件.点燃前景色 ＝ #蓝色<br />         超级按钮组件.焦点前景色 ＝ #蓝色<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 清除组件寻找句柄 (句柄)<br /> <br /> .子程序 _列表框1_双击选择<br /> <br /> ' 如何才能实现双击列表框 跳转到超级按钮所在页面

新建 易程序.e (10.41 KB, 下载次数: 3)

2026-7-8 15:15 上传

点击文件名下载附件

这个代码通过搜某个关键词，把包含关键词的超级按钮的标题加入到列表框，我想实现双击列表框就可以跳转到超级按钮所在页面，
例如：我双击列表框的我是兵4，就自动跳转到 高级选择夹1.现行子夹 的第2页
实在不知道如何实现，问AI也找不到正确答案，只好求助各位大佬，谢谢

cunanhai

新建 易程序.e (10.49 KB, 下载次数: 4)

2026-7-8 16:30 上传

点击文件名下载附件

MI大大

如果真(列表框被双击)
高级选择夹,现行选中项=2

学易未精

MI大大 发表于 2026-7-8 15:58
如果真(列表框被双击)
高级选择夹,现行选中项=2

谢谢，不过不是那么简单

学易未精

cunanhai 发表于 2026-7-8 16:30

谢谢，对这个界面是可行的，我再看看还有没有更好的解决方案