建站
咨詢
售后
建站咨詢
新聞中心
VB.NET ListBox加載還是比較常用的，于是我研究了一下VB.NET ListBox加載目錄與文件列表 ，在這里拿出來和大家分享一下，希望對大家有用。文本文件方式是以行為單位進行讀取的基本單位，主要應用的方法和函數有Open,Close,Line Input,FreeFile，EOF等。下面先簡述其功能然后結合代碼示例進行說明。Open：顧名思義，它的作用是打開文件，換而言之打開某個文件就是獲得某個的控制權，一般情況下當文件處于打開狀態(tài)時只有打開者才能對它進行操作。打開文件時要指定一個整數作為文件號，以后的操作都是針對這個代號進行的，而不是針對文件名。文件號也叫句柄，在程序中一個文件號只能指向一個文件，不能出現兩個文件同時具有相同句柄的情況。Close:關閉文件，即釋放文件的控制權。
十年的新建網站建設經驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。營銷型網站建設的優(yōu)勢是能夠根據用戶設備顯示端的尺寸不同，自動調整新建建站的顯示方式，使網站能夠適用不同顯示終端，在瀏覽器中調整網站的寬度，無論在任何一種瀏覽器上瀏覽網站，都能展現優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)從事“新建網站設計”,“新建網站推廣”以來，每個客戶項目都認真落實執(zhí)行。
#T#Line Input:以行為單位取得文件內容，以行為單位是指從當前位置開始到下一個換行符為止的內容。換行符是Chr(13) & Chr(10)兩個字節(jié)組成，VB中已定義了常量vbCrLf，可直接使用。要注意的是Line Input讀取一行時會把行尾的換行符去掉，因此我們在讀取每行內容時要記得補上換行符才能保持得到的內容與文件一致。
Freefile:得到空閑的文件號，用這個函數取得文件號可以避免文件號的沖突。
VB.NET ListBox加載代碼：
- Option Explicit
- 'API聲明
- Private Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
- '常量
- Private Const LB_DIR = &H18D
- Private Const DDL_DRIVES = &H4000 '磁盤
- Private Const DDL_DIRECTORY = &H10 '文件夾
- Private Const DDL_ARCHIVE = &H20
- Private Const DDL_EXCLUSIVE = &H8000&
- Private Const DDL_READWRITE = &H0 '讀寫
- Private Const DDL_READONLY = &H1 '只讀
- Private Const DDL_HIDDEN = &H2 '隱藏
- Private Const DDL_SYSTEM = &H4 '系統(tǒng)
- Private Const DDL_POSTMSGS = &H2000
- '-------------------------------------------------
- '功能：用ListBox控件加載文件列表
- '參數：lst - 指定的ListBox控件
- ' sPath - 指定目錄
- '-------------------------------------------------
- Private Sub MyListBoxLoadFolder(ByRef lst As ListBox, _
- ByVal sPath As String, _
- Optional bShowFolders As Boolean = True)
- On Error Resume Next
- Dim lngReturn As Long
- Dim lngFlags As Long
- If bShowFolders = False Then
- lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN
- Else
- lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN Or DDL_DIRECTORY
- End If
- '清空列表
- lst.Clear
- '開始裝載文件列表
- lngReturn = SendMessageA(lst.hWnd, LB_DIR, lngFlags, ByVal sPath)
- End Sub
網頁題目：詳解VB.NET ListBox加載目錄與文件列表
網址分享：http://fisionsoft.com.cn/article/dpodoie.html
