易语言超级列表框删除选中项这一行内容,删除之后如何自动选择超级列表框删除哪一行的下一行内容啊求代码

2024-11-27 06:06:46
推荐回答(2个)
回答1:

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

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

' 创建表项数据
.计次循环首 (10, N)
    索引 = 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (N))
    超级列表框1.置标题 (索引, 1, 到文本 (10 - N))
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 文件位置, 整数型

.如果真 (超级列表框1.现行选中项 = -1)
    返回 ()
    ' 没有选择表项时,不执行任何操作.
.如果真结束

超级列表框1.获取焦点 ()
文件位置 = 超级列表框1.现行选中项
超级列表框1.删除表项 (文件位置)
超级列表框1.现行选中项 = 文件位置
超级列表框1.保证显示 (文件位置)

回答2:

删除行