日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
詳解VB.NET ListBox加載目錄與文件列表

VB.NET ListBox加載還是比較常用的，于是我研究了一下VB.NET ListBox加載目錄與文件列表 ，在這里拿出來和大家分享一下，希望對大家有用。文本文件方式是以行為單位進行讀取的基本單位，主要應用的方法和函數(shù)有Open,Close,Line Input,FreeFile，EOF等。下面先簡述其功能然后結合代碼示例進行說明。Open：顧名思義，它的作用是打開文件，換而言之打開某個文件就是獲得某個的控制權，一般情況下當文件處于打開狀態(tài)時只有打開者才能對它進行操作。打開文件時要指定一個整數(shù)作為文件號，以后的操作都是針對這個代號進行的，而不是針對文件名。文件號也叫句柄，在程序中一個文件號只能指向一個文件，不能出現(xiàn)兩個文件同時具有相同句柄的情況。Close:關閉文件，即釋放文件的控制權。

十年的新建網(wǎng)站建設經(jīng)驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。營銷型網(wǎng)站建設的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同，自動調整新建建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)從事“新建網(wǎng)站設計”,“新建網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

#T#Line Input:以行為單位取得文件內(nèi)容，以行為單位是指從當前位置開始到下一個換行符為止的內(nèi)容。換行符是Chr(13) & Chr(10)兩個字節(jié)組成，VB中已定義了常量vbCrLf，可直接使用。要注意的是Line Input讀取一行時會把行尾的換行符去掉，因此我們在讀取每行內(nèi)容時要記得補上換行符才能保持得到的內(nèi)容與文件一致。
Freefile:得到空閑的文件號，用這個函數(shù)取得文件號可以避免文件號的沖突。

VB.NET ListBox加載代碼：

 
 
      
  
  1. Option Explicit  
    2.   
  
  2.  
    3.   
  
  3. 'API聲明  
    4.   
  
  4. Private Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long  
    5.   
  
  5.  
    6.   
  
  6. '常量  
    7.   
  
  7. Private Const LB_DIR = &H18D  
    8.   
  
  8. Private Const DDL_DRIVES = &H4000 '磁盤  
    9.   
  
  9. Private Const DDL_DIRECTORY = &H10 '文件夾  
    10.   
  
  10. Private Const DDL_ARCHIVE = &H20  
    11.   
  
  11. Private Const DDL_EXCLUSIVE = &H8000&  
    12.   
  
  12. Private Const DDL_READWRITE = &H0 '讀寫  
    13.   
  
  13. Private Const DDL_READONLY = &H1 '只讀  
    14.   
  
  14. Private Const DDL_HIDDEN = &H2 '隱藏  
    15.   
  
  15. Private Const DDL_SYSTEM = &H4 '系統(tǒng)  
    16.   
  
  16. Private Const DDL_POSTMSGS = &H2000  
    17.   
  
  17.  
    18.   
  
  18. '-------------------------------------------------  
    19.   
  
  19. '功能：用ListBox控件加載文件列表  
    20.   
  
  20. '參數(shù)：lst - 指定的ListBox控件  
    21.   
  
  21. ' sPath - 指定目錄  
    22.   
  
  22. '-------------------------------------------------  
    23.   
  
  23. Private Sub MyListBoxLoadFolder(ByRef lst As ListBox, _  
    24.   
  
  24. ByVal sPath As String, _  
    25.   
  
  25. Optional bShowFolders As Boolean = True)  
    26.   
  
  26. On Error Resume Next  
    27.   
  
  27. Dim lngReturn As Long  
    28.   
  
  28. Dim lngFlags As Long  
    29.   
  
  29.  
    30.   
  
  30. If bShowFolders = False Then  
    31.   
  
  31. lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN  
    32.   
  
  32. Else  
    33.   
  
  33. lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN Or DDL_DIRECTORY  
    34.   
  
  34. End If  
    35.   
  
  35.  
    36.   
  
  36. '清空列表  
    37.   
  
  37. lst.Clear  
    38.   
  
  38. '開始裝載文件列表  
    39.   
  
  39. lngReturn = SendMessageA(lst.hWnd, LB_DIR, lngFlags, ByVal sPath)  
    40.   
  
  40. End Sub 
    41.

文章標題：詳解VB.NET ListBox加載目錄與文件列表
路徑分享：http://www.5511xx.com/article/dpodoie.html