超级列表框插入问题

小平平

这个应该怎么实现呢

bttp0059

1.e (3.23 KB, 下载次数: 0)

4 小时前 上传

点击文件名下载附件

  

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

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

序号 ＝ 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (序号, 0, 到文本 (序号 ＋ 1))
超级列表框1.置标题 (序号, 1, 编辑框1.内容)
超级列表框1.置标题 (序号, 2, 编辑框2.内容)
超级列表框1.置标题 (序号, 3, 编辑框3.内容)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 序号, 整数型<br /> <br /> 序号 ＝ 超级列表框1.插入表项 (-1, , , , , )<br /> 超级列表框1.置标题 (序号, 0, 到文本 (序号 ＋ 1))<br /> 超级列表框1.置标题 (序号, 1, 编辑框1.内容)<br /> 超级列表框1.置标题 (序号, 2, 编辑框2.内容)<br /> 超级列表框1.置标题 (序号, 3, 编辑框3.内容)

cunanhai

  

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

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

超级列表框1.插入表项 (2, “3”, , , , )
超级列表框1.置标题 (2, 1, “sssss”)
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (n ＞ 2)
超级列表框1.置标题 (n, 0, 到文本 (到整数 (超级列表框1.取标题 (n, 0)) ＋ 1))

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> <br /> 超级列表框1.插入表项 (2, “3”, , , , )<br /> 超级列表框1.置标题 (2, 1, “sssss”)<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .如果真 (n ＞ 2)<br />         超级列表框1.置标题 (n, 0, 到文本 (到整数 (超级列表框1.取标题 (n, 0)) ＋ 1))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

小平平

cunanhai 发表于 2026-5-1 15:15
[e=0].版本 2
.支持库 iext

这不行呐

小平平

cunanhai 发表于 2026-5-1 15:15
[e=0].版本 2
.支持库 iext

超级列表框里面没内容的时候 想靠编辑框插入超级列表框内容就乱套了

cunanhai

  

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

变量名	类 型	静态	数组	备 注
n	整数型
原有内容行数	整数型

原有内容行数 ＝ 超级列表框1.取表项数 ()
计次循环首 (3 － 原有内容行数 － 1, n)
超级列表框1.插入表项 (原有内容行数 ＋ n － 1, , , , , )
计次循环尾 ()
超级列表框1.插入表项 (2, “3”, , , , )
超级列表框1.置标题 (2, 1, 编辑框1.内容)
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (n ＞ 2)
超级列表框1.置标题 (n, 0, 到文本 (到整数 (超级列表框1.取标题 (n, 0)) ＋ 1))

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 原有内容行数, 整数型<br /> <br /> 原有内容行数 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (3 － 原有内容行数 － 1, n)<br />     超级列表框1.插入表项 (原有内容行数 ＋ n － 1, , , , , )<br /> .计次循环尾 ()<br /> 超级列表框1.插入表项 (2, “3”, , , , )<br /> 超级列表框1.置标题 (2, 1, 编辑框1.内容)<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br /> <br /> <br />     .如果真 (n ＞ 2)<br />         超级列表框1.置标题 (n, 0, 到文本 (到整数 (超级列表框1.取标题 (n, 0)) ＋ 1))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2026-5-1 15:52):
超级列表框1.插入表项 (原有内容行数 ＋ n － 1, 到文本 (原有内容行数 ＋ n), , , , )

hxnr

加我QQ 378007526 手把手教你

heckvo

这样吗

RainCharm

.版本 2
.支持库 iext

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 sy, 整数型

.计次循环首 (2, i)
    sy ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (sy, 0, 到文本 (i))
    超级列表框1.置标题 (sy, 1, 到文本 (i × 123))
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 a, 整数型, 静态
.局部变量 sy, 整数型

a ＝ 超级列表框1.取表项数 ()
.如果真 (编辑框1.内容 ≠ “”)
    sy ＝ 超级列表框1.插入表项 (a ＋ 1, 到文本 (a ＋ 1), , , , )
    超级列表框1.置标题 (sy, 1, 编辑框1.内容)
.如果真结束

这样写就行了

花间一壶酒

索引=超级列表框1.插入表项（）
超级列表框1.置标题（索引，0，到文本（索引+1））
超级列表框1.置标题（索引，1，到文本（789））