日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

新聞中心

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

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

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

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

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.

當(dāng)前文章：詳解VB.NET ListBox加載目錄與文件列表
網(wǎng)站網(wǎng)址：http://www.dlmjj.cn/article/dpodoie.html