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

作者&投稿:丰厘 (若有异议请与网页底部的电邮联系)

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

.计次循环尾 ()

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

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

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

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



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

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

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

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

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

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

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

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

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

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

有图有真相:



.子程序 _查找按钮_被单击
.局部变量 表项数, 整数型
.局部变量 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补充

50分求易语言的俩问题,请高手解答,万分感谢~

先确定左上角一个点的坐标,然后用长与宽计算就可以了,

晕倒还是这个。昨天貌似提问过。源码都给了,文本稍微变下就不会了。真懒!

妈的 这真绕人。花了我1个多小时。


要源码+Q870966806 30RMB 辛苦费 买包烟

易语言相关问题:超级列表框
答:第3列=第1列+第2列 超级列表框1.置标题 (0, 2, 超级列表框1.取标题 (0, 0) + 超级列表框1.取标题 (0, 1))第3行=第1行+第2行 超级列表框1.置标题 (2, 0, 超级列表框1.取标题 (0, 0) + 超级列表框1.取标题 (1, 0))...

易语言 超级列表框读取问题
答:.版本 2 .支持库 iext .计次循环首 (超级列表框1.取表项数 (), i).如果真 (超级列表框1.取当前状态图片 (i - 1) = 1) ' 判断检查框是否选中 ' ……执行你的代码 超级列表框1.置状态图片 (i - 1, 0).如果真结束 .计次循环尾 ()...

易语言超级列表框问题
答:.版本 2 .支持库 iext .局部变量 索引, 整数型 索引 = 超级列表框1.插入表项 (, , , , , )超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1))超级列表框1.置标题 (索引, 1, 文件名)超级列表框1.置标题 (索引, 2, 通用对话框1.文件名)将以上代码替换如果内的 ...

易语言超级列表框替换问题
答:.版本 2 .支持库 iext .子程序 _按钮1_被单击 .局部变量 i, 整数型 .计次循环首 (超级列表框1.取表项数 (), i)超级列表框1.置标题 (i, , 子文本替换 (超级列表框1.取标题 (i, ), “jing”, “京教版”, , , 假))超级列表框1.置标题 (i, , 子文本替换 (超级列表框1.取...

易语言超级列表框显示问题,只能显示最后一条记录.
答:,1,检查下读取的表项数和数据库位置对不对 2,数据库里的项目类型是否和你读取的类型一致。

易语言关于超级列表框.选中项,第一次是-1,多点两次才正常,怎么回事 信息...
答:你这总情况一看就是在启动窗口创建完毕子程序 下面写的两个信息框代码;信息框是在某个事件下才能弹出信息框,如果你的超级列表框内没有项目,那么当然,启动窗口创建完毕后会直接提示 超级列表框_根.现行选中项为1 ,要死你超级列表框根本没有项目,所以你也取不到标题,弹出的信息框也肯定是空白的...

易语言问题,超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1...
答:不是,是把数据插入到最后一行的第二列里面。超级列表框默认的行数是从0开始的!如果超级列表框里面有一条数据,那么他的位置就在0上,如果有10条数据,那么他的位置就9上面!那么超级列表框1.取表项数 ()意思就是先取出超级列表框里面有多少条数据,然后-1就是最后一条数据的位置。

易语言关于超级列表框问题
答:建议你使用列表框!.版本 2 .程序集 窗口程序集1 .子程序 _服务器1_客户进入 .局部变量 n, 整数型, 静态 服务器1.取回客户 ()n = n + 1 列表框1.加入项目 (到文本 (n) + “: ” + 服务器1.取回客户 (), )---不懂的话追问--- ...

易语言问题?超级列表框报列表问题?假如我的超级列表框报列表有3个列表...
答:超级列表框1.插入表项 (3, , , , , )参数<1>的名称为“插入位置”,类型为“整数型(int)”,如果提供 -1 ,则插入到列表框的尾部。如果本参数被省略,默认值为 -1。

易语言 超级列表框ID排列问题
答:.版本 2 .支持库 iext .子程序 _按钮1_被单击 .局部变量 n1, 整数型 .局部变量 索引, 整数型 超级列表框1.全部删除 ().计次循环首 (到数值 (编辑框1.内容), n1)索引 = 超级列表框1.插入表项 (, , , , , )超级列表框1.置标题 (索引, 0, 到文本 (n1)).计次循环尾 ()