表哥们超级列列表框双击显示代码怎么写

山东省菏泽市

表哥们超级列列表框双击显示代码怎么写   帮我写个dome例子呗

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组	文本型	0

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

变量名	类 型	静态	数组	备 注
索引	整数型

超级列表框1.整行选择 ＝ 真
计次循环首 (5, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, “双击查看”)
加入成员 (数组, 到文本 (索引 ＋ 1) ＋ “已被查看”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
数	整数型

. ' 如果真 (超级列表框1.现行选中项 ＝ -1)
' 返回 ()
计次循环首 (超级列表框1.取表项数 (), 数)
超级列表框1.置标题 (数 － 1, 1, 数组 [数])
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.整行选择 ＝ 真<br /> .计次循环首 (5, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, “双击查看”)<br />     加入成员 (数组, 到文本 (索引 ＋ 1) ＋ “已被查看”)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 数, 整数型<br /> <br /> .' 如果真 (超级列表框1.现行选中项 ＝ -1)<br />     ' 返回 ()<br /> .如果真结束<br /> .计次循环首 (超级列表框1.取表项数 (), 数)<br />     超级列表框1.置标题 (数 － 1, 1, 数组 [数])<br /> .计次循环尾 ()

是永乐哟

你看看我写的这个列子，直接用了他的双击事件，效果是调试输出超级列表框中的内容
你可以按照他的这个原理改一下

zainex

  

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

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

变量名	类 型	静态	数组	备 注
索引	整数型

超级列表框1.整行选择 ＝ 真
计次循环首 (5, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, “双击查看”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
现行选中项	整数型

现行选中项 ＝ 超级列表框1.现行选中项
如果真 (现行选中项 ＝ -1)
返回 ()
超级列表框1.置标题 (现行选中项, 1, 到文本 (现行选中项 ＋ 1) ＋ “已被查看”)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.整行选择 ＝ 真<br /> .计次循环首 (5, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, “双击查看”)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 现行选中项, 整数型<br /> <br /> 现行选中项 ＝ 超级列表框1.现行选中项<br /> .如果真 (现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 超级列表框1.置标题 (现行选中项, 1, 到文本 (现行选中项 ＋ 1) ＋ “已被查看”)

效果:

例子.zip (1.28 KB, 下载次数: 2)

4 天前 上传

点击文件名下载附件

山东省菏泽市

zainex 发表于 2025-12-21 18:30
[e=1].版本 2
.支持库 iext

能在改一下吗    双击全部显示  不用现行选中项了

素顏じ亦傾國ジ

  

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

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

变量名	类 型	静态	数组	备 注
索引	整数型

' 初始化超级列表框：添加2列（序号、状态），并插入5条测试数据
超级列表框1.列数 ＝ 2
超级列表框1.置列名 (0, “序号”)
超级列表框1.置列名 (1, “显示内容”)
计次循环首 (5, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))  ' 第1列：序号（1-5）
超级列表框1.置标题 (索引, 1, “待显示”)  ' 第2列：初始状态
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型  ' 忽略位置参数，无需判断点击坐标
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
总表项数	整数型
循环索引	整数型

' 1.获取超级列表框中所有表项的总数
总表项数 ＝ 超级列表框1.取表项数 ()
如果真 (总表项数 ＝ 0)  ' 避免无数据时出错
信息框 (“超级列表框中无数据！”, 0, )
返回 ()

' 2.遍历所有表项，批量修改并显示内容（可替换为你的目标逻辑）
计次循环首 (总表项数, 循环索引)
' 示例：第2列显示“序号+已显示”（你可改为显示代码、文本等任意内容）
超级列表框1.置标题 (循环索引 － 1, 1, “第” ＋ 到文本 (循环索引) ＋ “行 - 已显示完整内容”)
计次循环尾 ()
' （可选）添加提示：告知用户已完成全部显示
信息框 (“所有表项已完成显示！”, 0, “操作提示”)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> <br /> ' 初始化超级列表框：添加2列（序号、状态），并插入5条测试数据<br /> 超级列表框1.列数 ＝ 2<br /> 超级列表框1.置列名 (0, “序号”)<br /> 超级列表框1.置列名 (1, “显示内容”)<br /> .计次循环首 (5, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))  ' 第1列：序号（1-5）<br />     超级列表框1.置标题 (索引, 1, “待显示”)  ' 第2列：初始状态<br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型  ' 忽略位置参数，无需判断点击坐标<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 总表项数, 整数型<br /> .局部变量 循环索引, 整数型<br /> <br /> ' 1.获取超级列表框中所有表项的总数<br /> 总表项数 ＝ 超级列表框1.取表项数 ()<br /> .如果真 (总表项数 ＝ 0)  ' 避免无数据时出错<br />     信息框 (“超级列表框中无数据！”, 0, )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 2.遍历所有表项，批量修改并显示内容（可替换为你的目标逻辑）<br /> .计次循环首 (总表项数, 循环索引)<br />     ' 示例：第2列显示“序号+已显示”（你可改为显示代码、文本等任意内容）<br />     超级列表框1.置标题 (循环索引 － 1, 1, “第” ＋ 到文本 (循环索引) ＋ “行 - 已显示完整内容”)<br /> .计次循环尾 ()<br /> <br /> ' （可选）添加提示：告知用户已完成全部显示<br /> 信息框 (“所有表项已完成显示！”, 0, “操作提示”)

Ruang

demo122101.e (3.33 KB, 下载次数: 3)

4 天前 上传

点击文件名下载附件