详解VB.NET ListBox加载目录与文件列表

VB.NET ListBox加载还是比较常用的，于是我研究了一下VB.NET ListBox加载目录与文件列表，在这里拿出来和大家分享一下，希望对大家有用。文本文件方式是以行为单位进行读取的基本单位，主要应用的方法和函数有Open,Close,Line Input,FreeFile，EOF等。下面先简述其功能然后结合代码示例进行说明。Open：顾名思义，它的作用是打开文件，换而言之打开某个文件就是获得某个的控制权，一般情况下当文件处于打开状态时只有打开者才能对它进行操作。打开文件时要指定一个整数作为文件号，以后的操作都是针对这个代号进行的，而不是针对文件名。文件号也叫句柄，在程序中一个文件号只能指向一个文件，不能出现两个文件同时具有相同句柄的情况。Close:关闭文件，即释放文件的控制权。

十年的新建网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整新建建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“新建网站设计”,“新建网站推广”以来，每个客户项目都认真落实执行。

#T#Line Input:以行为单位取得文件内容，以行为单位是指从当前位置开始到下一个换行符为止的内容。换行符是Chr(13) & Chr(10)两个字节组成，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 '系统    
  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://www.shufengxianlan.com/qtweb/news26/510426.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容