易语言超级列表框详细使用教程

【申明】由于内容太多，代码我以事先写好，在这里详细讲给你您【申明】

打开易语言

加入组件超级列表框

建立一个，导入的界面。主要一按钮、标签、编辑框组成

您可以参看图片，仿出来

现在开始设置、超级列表框。

加入报表列【编号、帐号、密码、邮箱】

类型选择【报表列表框】’用到的最多‘

表头可单击【真】’方便选择

整行选择【真】‘顾名思义

显示表格线【真】’美观显示

加入一个菜单

加入一个通用对话组件‘过滤器器调成【*.txt】

咱们先写弹出菜单命令：菜单命令有删除、清空、单个导入、批量导入、批量导出

---------

开始

先点击下超级列表框组件，然后查看他的所以事件，找到【右键单击表项】

载入，程序集1，开始写代码

代码如下，在下面写【弹出菜单 (菜单, , )】

-----------------------------------------------------------

                             ↓这个是格式说明↓

     调用格式： 〈无返回值〉 对象．弹出菜单 （菜单 欲弹出的菜单，［整数型 水平显示位置］，［整数型 垂直显示位置］） - 系统核心支持库->窗口

    英文名称：PopupMenu

    用于在窗口上的当前鼠标位置或指定坐标位置显示弹出式菜单，如果调用对象为窗口组件，则自动使用其所在的窗口。本命令为初级对象成员命令。

    参数<1>的名称为“欲弹出的菜单”，类型为“菜单（menu）”。指定菜单内必须包含有子菜单，且所处窗口必须与调用对象窗口一致。

    参数<2>的名称为“水平显示位置”，类型为“整数型（int）”，可以被省略。单位为像素点，相对于屏幕左边。如果被省略，将自动使用当前鼠标位置。

    参数<3>的名称为“垂直显示位置”，类型为“整数型（int）”，可以被省略。单位为像素点，相对于屏幕顶边。如果被省略，将自动使用当前鼠标位置。

    操作系统需求： Windows

------------------------------------------------------

.源码如下

版本 2

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

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

弹出菜单 (菜单, , )

弹出菜单命令写完，现在开始菜单事件。

我们已经知道菜单中有删除、清空、单个导入、批量导入、批量导出、命令

写命令直接点击菜单中的子菜单，即可添加菜单子程序。

咱们用的单个是用的，添加组件添加的。直接调用

按钮1添加即可

按钮1所指的就是加入项目

.版本 2

.支持库 iext

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

.局部变量 索引, 整数型

.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)

    索引 ＝ 超级列表框1.插入表项 (, , , , , )

    超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))

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

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

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

    编辑框3.内容 ＝ “”

    编辑框2.内容 ＝ “”

    编辑框1.内容 ＝ “”

    .如果真 (选择框1.选中 ＝ 假)

        分组框1.可视 ＝ 假

    .如果真结束

.否则

    信息框 (“信息没填完整”, 0, )

源码如上，单个添加

‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘

现在写，菜单【删除】

很简单的

源码如下

.版本 2

.支持库 iext

.子程序 _删除_被选择

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

    超级列表框1.删除表项 (超级列表框1.现行选中项)

’现在写，菜单命令【批量导入】

源码如下

.版本 2

.支持库 iext

.子程序 _批量导入_被选择

.局部变量 路径, 文本型

.局部变量 文本数组, 文本型, , "0"

.局部变量 计次1, 整数型

.局部变量 计次2, 整数型

.局部变量 临时数组, 文本型, , "0"

.局部变量 索引, 整数型

通用对话框1.类型 ＝ 0

通用对话框1.打开 ()

路径 ＝ 通用对话框1.文件名

文本数组 ＝ 分割文本 (到文本 (读入文件 (路径)), #换行符, )

.计次循环首 (取数组成员数 (文本数组), 计次1)

    索引 ＝ 超级列表框1.插入表项 (, , , , , )

    临时数组 ＝ 分割文本 (文本数组 [计次1], “----”, )

    .计次循环首 (取数组成员数 (临时数组) ＋ 1, 计次2)

        .如果 (计次2 ≠ 1)

            超级列表框1.置标题 (索引, 计次2 － 1, 临时数组 [计次2 － 1])

        .否则

            超级列表框1.置标题 (索引, 计次2 － 1, 到文本 (索引 ＋ 1))

        .如果结束

    .计次循环尾 ()

.计次循环尾 ()

‘说明看图

‘现在写，菜单命令【批量导出】

源码如下

.版本 2

.支持库 iext

.子程序 _批量导出_被选择

.局部变量 路径, 文本型

.局部变量 保存文本, 文本型

.局部变量 计次1, 整数型

.局部变量 计次2, 整数型

.如果真 (超级列表框1.取表项数 () ≠ 0)

    通用对话框1.类型 ＝ 1

    通用对话框1.打开 ()

    路径 ＝ 通用对话框1.文件名

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

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

            .如果真 (计次2 ＞ 1)

                .如果 (超级列表框1.取列数 () ≠ 计次2)

                    保存文本 ＝ 保存文本 ＋ 超级列表框1.取标题 (计次1 － 1, 计次2 － 1) ＋ “----”

                .否则

                    保存文本 ＝ 保存文本 ＋ 超级列表框1.取标题 (计次1 － 1, 计次2 － 1)

                .如果结束

            .如果真结束

        .计次循环尾 ()

        保存文本 ＝ 保存文本 ＋ #换行符

    .计次循环尾 ()

    写到文件 (路径, 到字节集 (保存文本))

.如果真结束

最后就是菜单命令清空了

这个一样很简单

.版本 2

.支持库 iext

.如果真 (超级列表框1.取表项数 () ≠ 0)

    .如果真 (信息框 (“清空后数据不可回复,是否确认清空”, 1, “重要操作【清空】”, ) ＝ #确认钮)

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

    .如果真结束

’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’

直接用  超级列表框1.全部删除 ()即可

最后测试，图片我压缩处理了，不清楚见谅