Question

【易语言】超级列表框的几个小问题，帮我解决了追加到50分。

如图所示：

1.超级列表框的数据已存在，如何在数据的末端实现可自由地手工添加新数据进去？添加新数据进去后，序号跟着自动更新11,12,13...

2.有“选择整行”属性，可惜没有“选择整列”属性，要想某列整列被选中的话，应该怎么做？

3.选中了某行或者某列后，点击鼠标右键，弹出一个小框，上面有复制与删除的功能，应该怎么做？
2个超级列表框？楼下的有没有看明白我问题的意思啊？

Answer 1

.版本 2

.支持库 iext

.程序集 窗口程序集1

.程序集变量 容器, 整数型

.子程序 __启动窗口_创建完毕

.局部变量 k, 整数型

.局部变量 kk, 整数型

.局部变量 x, 整数型

置随机数种子 ()

.计次循环首 (10, x)

    容器 ＝ 超级列表框1.插入表项 (-1, , , , , )

    k ＝ 取随机数 (10000, 99999)

    kk ＝ 取随机数 (10000, 99999)

    超级列表框1.置标题 (容器, 0, 到文本 (x))

    超级列表框1.置标题 (容器, 1, 到文本 (k))

    超级列表框1.置标题 (容器, 2, 到文本 (kk))

.计次循环尾 ()

.子程序 _按钮1_被单击

.判断开始 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)

    信息框 (“加入的内容不能为空！”, 0, )

.默认

    容器 ＝ 超级列表框1.插入表项 (-1, , , , , )

    超级列表框1.置标题 (容器, 0, 到文本 (超级列表框1.取表项数 ()))

    超级列表框1.置标题 (容器, 1, 编辑框1.内容)

    超级列表框1.置标题 (容器, 2, 编辑框2.内容)

.判断结束

.子程序 _超级列表框1_右键单击表项, , , 建个右键菜单

.如果真 (超级列表框1.现行选中项 ＞ -1)

    弹出菜单 (右键菜单, , )

.如果真结束

.子程序 _复制本行_被选择, , , 右键菜单的子菜单 复制本行

.局部变量 复制的文本, 文本型

复制的文本 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

复制的文本 ＝ 复制的文本 ＋ “,” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)

复制的文本 ＝ 复制的文本 ＋ “,” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)

置剪辑板文本 (复制的文本)

.子程序 _删除本行_被选择, , , 右键菜单的子菜单 删除本行

.局部变量 列表, 文本型, , "0"

.局部变量 每行的文本, 文本型

.局部变量 每行的文本分割, 文本型, , "2"

.局部变量 x, 整数型

清除数组 (列表)

.计次循环首 (超级列表框1.取表项数 (), x)

    .如果真 (x － 1 ≠ 超级列表框1.现行选中项)

        每行的文本 ＝ 超级列表框1.取标题 (x － 1, 1)

        每行的文本 ＝ 每行的文本 ＋ “,” ＋ 超级列表框1.取标题 (x － 1, 2)

        加入成员 (列表, 每行的文本)

    .如果真结束

.计次循环尾 ()

超级列表框1.全部删除 ()

.计次循环首 (取数组成员数 (列表), x)

    容器 ＝ 超级列表框1.插入表项 (-1, , , , , )

    每行的文本分割 ＝ 分割文本 (列表 [x], “,”, )

    超级列表框1.置标题 (容器, 0, 到文本 (x))

    超级列表框1.置标题 (容器, 1, 每行的文本分割 [1])

    超级列表框1.置标题 (容器, 2, 每行的文本分割 [2])

.计次循环尾 ()

.子程序 _复制本列_被选择, , , 右键菜单的子菜单 复制本列

' 超级列表框好像没办法取整列，还请会的高手指教！

.子程序 _删除本列_被选择, , , 右键菜单的子菜单 删除本列

' 超级列表框好像没办法取整列，还请会的高手指教！

Answer 2

楼主完全可以用[ 高级表格 控件 ]实现这些功能的!

用高级表格替换超级列表框.

1.修改或添加数据:高级表格[ 是否可编辑 ]属性,还可以单独设置某个区域是否可编辑,可以灵活运用.

2.选择某行或某列:把高级表格的[ 允许选择块 ]属性设置为真.

选择整行只需要点击左边的行头,选择整列只需要点击上边的列头即可. 

3.复制粘贴:把高级表格的[ 允许选择块 ]属性设置为真.

切换到程序界面设计窗口,按Ctrl+E打开菜单编辑器,编辑好菜单.

高级表格右键被按下事件里弹出菜单:弹出菜单 (菜单, , )

复制功能:高级表格1.复制选定文本 ()

粘贴功能:高级表格1.粘贴 () 

有图有真相:

Answer 3

.子程序 _查找按钮_被单击
.局部变量 表项数, 整数型
.局部变量 i, 整数型
.局部变量 临时, 文本型
.局部变量 a, 整数型

表项数 ＝ 超级列表框1.取表项数 ()
超级列表框2.全部删除 ()
.计次循环首 (表项数, i)
临时 ＝ 超级列表框1.取标题 (i － 1, 0)
.如果真 (寻找文本 (临时, 欲查找名称编辑框.内容, , 假) ≠ -1)
a ＝ 超级列表框2.插入表项 (超级列表框2.取表项数 (), 临时, , , , )
超级列表框2.置标题 (a, 1, 超级列表框1.取标题 (i － 1, 1))
超级列表框2.置标题 (a, 2, 超级列表框1.取标题 (i － 1, 2))
超级列表框2.置标题 (a, 3, 超级列表框1.取标题 (i － 1, 3))
超级列表框2.置标题 (a, 4, 超级列表框1.取标题 (i － 1, 4))
.如果真结束

.计次循环尾 ()

'如果还有问题请LZ补充