首页 > 开发 > 其他 > 正文

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

2019-10-20 16:30:38
字体:
来源:转载
供稿:网友

区别:超级列表框和列表框;超级列表框有很多种显示形势给你设置,采集。

小编主要写了,批量导入、单个导入、复制、删除。(外加一个通用对话框的使用)

易语言,超级列表框

方法/步骤

1

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

打开易语言

加入组件超级列表框

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

您可以参看图片,仿出来

易语言,超级列表框

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

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

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

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

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

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

加入一个菜单

加入一个通用对话组件‘过滤器器调成【*.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.全部删除 ()即可

易语言,超级列表框

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

易语言,超级列表框

END

注意事项

注意超级列表框的默认表项索引为0

多多练习,认真看理解透


注:相关教程知识阅读请移步到易语言教程频道。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表