超列怎么显示所有文本

学习委员

因为超级列表框的宽度有限，不能显示所有的标题文本。

所以我想写一个 右键单击表项，选择菜单里面的“显示所有文本”，弹出一个窗口，窗口里放一个编辑框，然后把选中的这一行的这个文本，取标题，显示在这个编辑框里。


有没有更方便的方法？前辈们。

是可可吖

学习委员 发表于 2025-3-22 22:24
那就还是新建弹出一个窗口，窗口里面放个编辑框吗

  

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_显示全部内容_被选择

如果真 (超级列表框1.现行选中项 ≠ -1)
载入 (窗口1, , 假)
窗口1.编辑框1.加入文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ #换行符 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2) ＋ #换行符 )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> <br /> .子程序 _显示全部内容_被选择<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     载入 (窗口1, , 假)<br />     窗口1.编辑框1.加入文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ #换行符 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2) ＋ #换行符)<br /> <br /> .如果真结束

这样吧，应该是你需要的了

是可可吖

  

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

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

计次循环首 (超级列表框1.取列数 (), i)
外部超级列表框_自动调整列宽 (超级列表框1.取窗口句柄 (), i)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取列数 (), i)<br />     外部超级列表框_自动调整列宽 (超级列表框1.取窗口句柄 (), i)<br /> .计次循环尾 ()

算法艺术家

  

按钮 改成右键菜单执行就行了

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

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

编辑框2.内容 ＝ “”
计次循环首 (超级列表框1.取列数 (), i)
编辑框2.加入文本 (超级列表框1.取标题 (超级列表框1.现行选中项, i － 1) ＋ “/”)
计次循环尾 ()

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

按钮 改成右键菜单执行就行了<br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 i, 整数型<br /> <br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (超级列表框1.取列数 (), i)<br />     编辑框2.加入文本 (超级列表框1.取标题 (超级列表框1.现行选中项, i － 1) ＋ “/”)<br /> .计次循环尾 ()

是可可吖

直接  超级列表框左键单击表项     然后取标题   编辑框.内容=取的标题

samll88

  

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

编辑框1.内容 ＝ “”
如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “ ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “ ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 编辑框1.内容 ＝ “”<br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “ ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “ ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)

这是假设超级列表框1有3列,其他列数可以自己改

学习委员

是可可吖 发表于 2025-3-22 22:19
[e=2].版本 2
.支持库 iext

这不行，内容是导入的txt文本，那里面有换行符的，光有宽度还不行。

是可可吖

学习委员 发表于 2025-3-22 22:22
这不行，内容是导入的txt文本，那里面有换行符的，光有宽度还不行。

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 5)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> 编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 5)

学习委员

是可可吖 发表于 2025-3-22 22:23
[e=2].版本 2
.支持库 iext

那就还是新建弹出一个窗口，窗口里面放个编辑框吗

算法艺术家

学习委员 发表于 2025-3-22 22:24
那就还是新建弹出一个窗口，窗口里面放个编辑框吗

不一定非得弹个窗口，你弄个固定标签也行 放在合适的位置