区别:超级列表框和列表框;超级列表框有很多种显示形势给你设置,采集。
小编主要写了,批量导入、单个导入、复制、删除。(外加一个通用对话框的使用)
-
【申明】由于内容太多,代码我以事先写好,在这里详细讲给你您【申明】
建立一个,导入的界面。主要一按钮、标签、编辑框组成
您可以参看图片,仿出来
-
现在开始设置、超级列表框。
加入报表列【编号、帐号、密码、邮箱】
类型选择【报表列表框】’用到的最多‘
表头可单击【真】’方便选择
整行选择【真】‘顾名思义
显示表格线【真】’美观显示
加入一个通用对话组件‘过滤器器调成【*.txt】
-
咱们先写弹出菜单命令:菜单命令有删除、清空、单个导入、批量导入、批量导出
先点击下超级列表框组件,然后查看他的所以事件,找到【右键单击表项】
载入,程序集1,开始写代码
代码如下,在下面写【弹出菜单 (菜单, , )】
调用格式: 〈无返回值〉 对象.弹出菜单 (菜单 欲弹出的菜单,[整数型 水平显示位置],[整数型 垂直显示位置]) - 系统核心支持库->窗口
用于在窗口上的当前鼠标位置或指定坐标位置显示弹出式菜单,如果调用对象为窗口组件,则自动使用其所在的窗口。本命令为初级对象成员命令。
参数<1>的名称为“欲弹出的菜单”,类型为“菜单(menu)”。指定菜单内必须包含有子菜单,且所处窗口必须与调用对象窗口一致。
参数<2>的名称为“水平显示位置”,类型为“整数型(int)”,可以被省略。单位为像素点,相对于屏幕左边。如果被省略,将自动使用当前鼠标位置。
参数<3>的名称为“垂直显示位置”,类型为“整数型(int)”,可以被省略。单位为像素点,相对于屏幕顶边。如果被省略,将自动使用当前鼠标位置。
.程序集 窗口程序集_启动窗口
.子程序 _超级列表框1_右键单击表项
-
弹出菜单命令写完,现在开始菜单事件。
我们已经知道菜单中有删除、清空、单个导入、批量导入、批量导出、命令
写命令直接点击菜单中的子菜单,即可添加菜单子程序。
-
咱们用的单个是用的,添加组件添加的。直接调用
按钮1所指的就是加入项目
-
.子程序 _按钮1_被单击
.局部变量 索引, 整数型
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
-
.子程序 _删除_被选择
.如果真 (超级列表框1.现行选中项 ≠ -1)
-
’现在写,菜单命令【批量导入】
.子程序 _批量导入_被选择
.局部变量 路径, 文本型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型
.局部变量 索引, 整数型
通用对话框1.类型 = 0
通用对话框1.打开 ()
路径 = 通用对话框1.文件名
文本数组 = 分割文本 (到文本 (读入文件 (路径)), #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次1)
-
‘现在写,菜单命令【批量导出】
.子程序 _批量导出_被选择
.局部变量 路径, 文本型
.局部变量 保存文本, 文本型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型
.如果真 (超级列表框1.取表项数 () ≠ 0)
-
最后就是菜单命令清空了
.如果真 (超级列表框1.取表项数 () ≠ 0)
.如果真 (信息框 (“清空后数据不可回复,是否确认清空”, 1, “重要操作【清空】”, ) = #确认钮)
’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’
直接用 超级列表框1.全部删除 ()即可
-
最后测试,图片我压缩处理了,不清楚见谅
-
注意超级列表框的默认表项索引为0
-
多多练习,认真看理解透
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。
作者声明:本篇经验系本人依照真实经历原创,未经许可,谢绝转载。