⑴ 易語言怎麼把文件夾里的文件加入到超級列表框
要將文件夾下的內容添加到超級列表框,搜賣你需要編寫代碼遍歷文件夾,並將搜索到的春腔指定文件加入世森逗到超級列表框中,好在現在你有了一個很好的選擇,可以不必編寫文件搜索器,直接使用現成的第三方模塊即可,你可以到http://blog.csdn.net/kflizcst/archive/2009/04/17/4086942.aspx下載這個模塊(內含易語言常式)。
如果你仍然不知怎麼解決可與863694068(QQ)聯系。
⑵ 易語言把文件拖動到超級列表框,以圖標形式顯示,點擊圖標運行程序
下面是一個完整的源碼,你參考一下。
.程序集
窗口程序集1
.程序集變數
拖放文件名,
文本型
.程序集變數
路徑名,
文本型
.程序集變數
圖片號
.程序集變數
圖片組,
位元組集
.程序集變數
文件名,
文本型
.程序集變數
路徑,
文本型,
,
"0"
.子程序
__啟動窗口_創建完畢
拖放對象1.注冊拖放控制項
(_啟動窗口.取窗口句柄
())
拖放對象1.接收文件
=
真
圖片組
=
超級列表框1.圖片組
.子程序
_超級列表框1_被雙擊,
邏輯型
.參數
橫向位置,
整數型
.參數
縱向位置,
整數型
.參數
功能鍵狀態,
整數型
.局部變數
項目
.如果真
(超級列表框1.現行選中項
=
-1)
'
避免有項目/沒項目時,運行項宏芹目出錯
返回
()
.如果真結束
.如果真
(超級列表框1.取表項數
()
≥
1)
'
有項目時才能運行
項目
=
超級列表框1.取表項數值
(超級列表框1.現行選中項)
執行
(,
路徑
[項目],
,
)
.如果真結束
.子程序
_拖放對象1_得到文件
.參數
接收到的文件路徑,
文本型
.局部變數
文件後綴名,
文本型
.局部變數
文件名1,
文本型,
,
"0"
.局部變數
後綴名,
文本型
文件名1
=
分割文本
(接收到的文件路徑,
#換行符,
1)
拖放文件名
=
文件名1
[1]
路徑名
=
拖放文件名
文件後綴名
=
取文本右邊
(路徑名,
取文本長度
(路徑名)
-
倒找文本
(路徑名,
「.」,
,
假))
後綴名
=
文件後綴名
.如果
(後綴名
=慶賣
「exe」)
圖片號
=
提取加入圖片
(圖片組,
拖放文件名,
,
)
.否則
圖片蔽差畢號
=
提取加入圖片
(圖片組,
查詢快捷方式
(拖放文件名),
,
)
.如果結束
超級列表框1.圖片組
=
圖片組
文件名
=
取文本右邊
(路徑名,
取文本長度
(路徑名)
-
倒找文本
(路徑名,
「\」,
,
假))
文件名
=
取文本左邊
(文件名,
取文本長度
(文件名)
-
4)
加入成員
(路徑,
路徑名)
.如果
(圖片號
≠
-1)
超級列表框1.插入表項
(-1,
文件名,
圖片號,
,
,
取數組成員數
(路徑))
.否則
超級列表框1.插入表項
(-1,
文件名,
0,
,
,
取數組成員數
(路徑))
⑶ 易語言txt內容導入超級列表框
組件:通用對話框、按鈕、超級列表框
名稱均為:通用對話框1、按鈕1、超級列表框1
代碼如下:
.版本 2
.支持庫 EThread
.支持庫 iext
.程序集 窗口程序集_啟動窗口
.程序集變數 文本, 文本型
.子程序 _按鈕1_被單擊
.如果真 (通用對話框1.打開 ())
文本 = 到文本 (讀入文件 (通用對話框1.文件名))
.如果真 (刪首尾空 (文本) ≠ 「」)
啟動線程 (&子程序1, , )
.如果真結束
.如果真結束
.子程序 子程序1
.局部變數 分割_文本行, 文本型, , "0"
.局部變數 n, 整數型
.局部變數 臨時文本, 文本型
.局部變數 分割_號碼, 文本型, , "0"
.局部變數 a, 整數型
分割_文本行 = 分割文本 (文本, #換行符, )
.計次循環首 (取數組成員數 (分割_文本行), n)
臨時文本 = 刪首尾空 (分割_文本行 [n])
.如果真 (臨時文本 ≠ 「」)
分割_號碼 = 分割文本 (臨時文本, 「 」, )
a = 超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (a, 0, 分割_號碼 [1])
超級列表框1.置標題 (a, 1, 分割_號碼 [2])
超級列表框1.置標題 (a, 2, 分割_號碼 [3])
超級列表框1.置標題 (a, 3, 分割_號碼 [4])
超級列表框1.置標題 (a, 4, 分割_號碼 [5])
超級列表框1.置標題 (a, 5, 分割_號碼 [6])
超級列表框1.置標題 (a, 6, 分割_號碼 [7])
超級列表框1.置標題 (a, 7, 分割_號碼 [8])
.如果真結束
.計次循環尾 ()
⑷ 易語言 讀文件夾文件到超級列表框
.版本
2
.支持庫
shell
.
子程序
_按鈕1_被單擊
瀏覽文件夾
(「選擇信任目錄」,
)
.
程序集
窗口程序集1
.子程序
_按鈕1_被單擊
.
局部變數
局_文本,
文本型
.局部變數
局_類型,
文本型
.局部變數
局_數組,
文本型,
,
"0"
.局部變數
局_索引,
整數型
編輯框1.內容
=
瀏覽文件夾
(「選擇
文件目錄
」,
)
.如果真
(編輯框1.內容
=
「」)
返回
()
.如果真結束
.如果真
(取文本右邊薯氏
(編輯框1.內容,
1)
≠
「\」)
編輯框1.內容
=
編輯框1.內容
+
「\」
.如果真結束
局_類型
=
編輯框1.內容
+
「*.txt」
局_文本
=
尋找文件
(局_類型,
)
超級列表框1.全部刪除
()
.判斷循環首
(局_文本
≠
「」)
局_類型
=
編輯框1.內容
+
局_文本
局_文本
=
取文本左邊
(局_文本,
倒找文本
(局_文本,
「.」,
,
假)
-
1)
局_數組
=
分割文本
(局_文本,
「+」,
)
.如果真
(取數組成員數
(局_數組)
≥
3)
局_索引
=
超級棗枯列表框1.插入表項
(,
到文本
(局_索引
+
1),
,
,
,
)
超級列表框1.置標題
(局_索引,
1,
局_數組
[1])
超級列表框1.置標題
(局_索引,
2,
局_數組
[2])
超級列表框1.置標題
(局_索引,
3,
局_數組
[3])
超級列表框1.置標題
(局_索引,
4,
局_類型)
.如果真數岩散結束
局_文本
=
尋找文件
(,
)
.判斷循環尾
()
⑸ 易語言怎麼把一個文件夾中的全部文件名加入列表框
.版本
2
.支持庫
iext
.子程序
_按鈕1_被單擊
.局部變數
ID,
整數型
.局部變數
文件夾信息,
文件夾信息_
.局部變數
MP3路徑,
文本型
.局部變數
路徑,
文本型
.局部變數
索引,
整數型
.局部變數
音樂路徑,
文本型,
,
"0"
.局部變數
計次,
整數型
路徑
=
取空白文本
(255)
ID
=
瀏覽文件夾對話框_
(文件夾信息)
從列表id取路徑_
(ID,
路徑)
文件框1.目錄
=
路徑
MP3路徑
=
尋找文件
(路徑
+
「\*.mp3」,
)
.判斷循環首
(MP3路徑
≠
「」)
輸出調試文本
(MP3路徑)
索引
=
超級列表框1.插入表項
(,
,
,
,
,
)
超級列表框1.置標題
(索引,
0,
路徑
+
「\」
+
MP3路徑)
MP3路徑
=
尋找文件
(,
)
.判斷循環尾
()
.計次循環首
(超級列表框1.取表項數
(),
計次)
加入成員
(音樂路徑,
超級列表框1.取標題
(計次
-
1,
0))
.計次循環尾
()
播放MP3
(,
音樂路閉畢兄徑)
.版本
2
.DLL命令
從列表id取轎襲路徑_,
整數型,
"shell32.dll",
"SHGetPathFromIDListA",
,
,
.參數
結構指針,
整數型,
,
pIdl
.參數
路徑,
文本型,
傳址,
pszPath
.DLL命令
瀏覽文件夾對話框_,
整數型,
"shell32.dll",
"SHBrowseForFolderA",
,
,
.參數
瀏覽文件夾結構,
文件夾信數亮息_
.版本
2
.數據類型
文件夾信息_,
,
,
BROWSEINFO
.成員
窗口句柄,
整數型,
,
,
hOwner
.成員
根目錄,
整數型,
,
,
pidlRoot
.成員
顯示名稱,
文本型,
,
,
pszDisplayName
.成員
標題,
文本型,
,
,
lpszTitle
.成員
標志,
整數型,
,
,
ulFlags
.成員
回調函數地址,
整數型,
,
,
lpfn
.成員
回調函數參數,
整數型,
,
,
lParam
.成員
圖像索引,
整數型,
,
,
iImage
列表框也是一樣的,你換過來不就成了,文件筐1.目錄報錯是因為你沒有添加該組件,請在設計窗口上拖出該組件
⑹ 易語言如何選中組合框里的文件夾,然後讓文件夾里的文件展示在超級列表框中呢
.版本 2
.支持庫 iext
.子程序 目錄找文件
.參數 目錄, 文本型
.局部變數 文件名, 文本型
.局部變數 b, 整數型
超級列表框1.全部刪除 ()
目錄 = 選擇 (取帆春文本右邊 (目錄, 1) = 「\」, 目錄, 目錄 + 「\」)
文件名 = 尋找文件 (目錄 + 「\*.*」, #子目錄)
.判斷循環首 (文件名 ≠ 「」)
.如果真 (文件名 ≠ 「.」 且 文件名 ≠ 「..」)
.判斷開春轎圓始 (選擇框1.選中 = 真)
b = 超級列表框1.插入表項 (, , , , , )
超級列表框1.置扒塌標題 (b, 0, 文件名)
.默認
.如果真 (位與 (取文件屬性 (目錄 + 文件名), #隱藏文件) = 0)
b = 超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (b, 0, 文件名)
.如果真結束
.判斷結束
.如果真結束
文件名 = 尋找文件 (, #子目錄)
.判斷循環尾 ()
===============================
這個子程序給你,你自己看下再修改修改
⑺ 易語言文本導入超級列表框
組件:通用對話框、按鈕、超級列表框
名稱均為:通用對話框1、按鈕1、超級列表框1
代碼如下:
.版本 2
.支持庫 EThread
.支持庫 iext
.程序集 窗口程序集_啟動窗口
.程序集變數 文本, 文本型
.子程序 _按鈕1_被單擊
.如果真 (通用對話框1.打開 ())
文本 = 到文本 (讀入文件 (通用對話框1.文件名))
.如果真 (刪首尾空 (文本) ≠ 「」)
啟動線程 (&子程序1, , )
.如果真結束
.如果真結束
.子程序 子程序1
.局部變數 分割_文本行, 文本型, , "0"
.局部變數 n, 整數型
.局部變數 臨時文本, 文本型
.局部變數 分割_號碼, 文本型, , "0"
.局部變數 a, 整數型
分割_文本行 = 分割文本 (文本, #換行符, )
.計並殲次循環首 (取數組成員數 (分割_文本行), n)
臨時文本 = 刪首尾空 (分割_文本行 [n])
.如果真 (臨時文本 ≠ 「」)
分割_號碼 = 分割文本 (臨時文本, 「 」, )
a = 超級段蔽含列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (a, 0, 分割_號碼 [1])
超級列表框1.置標題 (a, 1, 分割_號碼 [2])
超級列表框1.置標題 (a, 2, 分割_號碼 [3])
超級列表框1.置標題 (a, 3, 分割_號碼 [4])
超級列表框1.置標題 (a, 4, 分割_號碼 [5])
超握笑級列表框1.置標題 (a, 5, 分割_號碼 [6])
超級列表框1.置標題 (a, 6, 分割_號碼 [7])
超級列表框1.置標題 (a, 7, 分割_號碼 [8])
.如果真結束
.計次循環尾 ()
⑻ 怎麼做易語言做文件導入超級列表框
.版本 2
.支持庫 shell
.支持庫 iext
.子程序 _按鈕1_被單擊
.局部變數 文件夾路徑, 文本型
.局部變數 文件名稱, 文本型
.局部變數 文件成員, 文本型, , "0"
.局部變數 n, 整數型
文件夾路徑 = 瀏覽文件夾 (「選擇文件夾」, )
文件名稱 = 尋找文件 (文件夾路徑 + 「\*.mp3」, )
.判斷循環首 (文件名稱 ≠ 「」)
加入成員 (文件成員, 文件名稱)
文件名稱 = 尋找文件 (, )
.判斷循環尾 ()
.計次循環首 (取數組成員數 (文件成員), n)
超級列表框1.插入表項 (, , , , , )
超級列表框1.置標題 (n - 1, 0, 文件成員 [n])
超級列表框1.置標題 (n - 1, 1, 文件夾路徑 + 「\」 + 文件成員 [n])
.計次循環尾 ()
⑼ 易語言中如何取文件夾內的所有文件名前三位放入超級列表框第一列,後幾位放入超級列表框第二列
.版本 2
.支持庫 shell
.支持庫 iext
.子程序 __啟動窗口_創建完畢
.局部變數 目錄, 文本型
.局部變數 文件名, 文本型
.局部變數 文件組, 文本型, , "0"
.局部變數 計次, 整數型
.局部變數 行, 整數型
目錄 = 瀏覽文件夾 (「請選擇目錄:」, 假)
.如果真 (目錄 = 「」)
目錄 = 取運行目錄 ()
.如果真結束
目錄 = 目錄 + 「」
文件名 = 尋找文件 (目錄 + 「*.*」, )
.循環判斷首 ()
加入成員 (文件組, 文件名)
文件名 = 尋找文件 (, )
.循環判斷尾 (文件名 ≠ 「」)
.計次循環首 (取數組成員數 (文件組), 計次)
行 = 超級列表框1.插入表項 (, , , , , )
文件名 = 取文本左邊 (文件組 [計次], 3)
超級列表框1.置標題 (行, 0, 文件名)
文件名 = 取文本右邊 (文件組 [計次], 取文本長度 (文件組 [計次]) - 倒找文本 (文件組 [計次], 「.」, , 假))
超級列表框1.置標題 (行, 2, 文件名)
文件名 = 取文本中間 (文件組 [計次], 4, 取文本長度 (文件組 [計次]) - 取文本長度 (文件名) - 4)
超級列表框1.置標題 (行, 1, 文件名)
.計次循環尾 ()
⑽ 易語言超級列表框導入文件
超級列表框1.插入表項(超級列御猜鉛表框1.取表項數)』純手打 求分
超級列表框1.置標題(索引,0,到文本(超級列表框1.取表項數))』純手打 求分
超級列表框1.置鎮好標題(索引,1,文件名)』純手打 求分
超級列表框1.置標題(索引,2,通用對兆顫話框.文件名)』純手打 求分