区别:超级列表框和列表框;超级列表框有很多种显示形势给你设置,采集。
小编主要写了,批量导入、单个导入、复制、删除。(外加一个通用对话框的使用)
方法/步骤
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
多多练习,认真看理解透
新闻热点
疑难解答