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

发布网友 发布时间：2022-05-04 22:25

我来回答

共3个回答

热心网友 时间：2022-06-26 13:11

.版本 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])

.计次循环尾 ()

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

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

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

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

参考资料：2011年漂亮的新年祝福网页: http://www.jdw8.com/NewYear/

热心网友 时间：2022-06-26 13:11

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

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

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

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

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

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

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

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

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

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

有图有*:

热心网友 时间：2022-06-26 13:12