區別：超級列表框和列表框;超級列表框有很多種顯示形勢給你設置，采集。

小編主要寫了，批量導入、單個導入、復制、刪除。(外加一個通用對話框的使用)

方法/步驟

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

多多練習，認真看理解透