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

开发 后端
这里演示了VB.NET ListBox加载目录与文件列表的一个案例分析,代码详细,正在为这个问题烦恼的朋友可以看看代码,复杂跑在机器看看运行结构。

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

#T#Line Input:以行为单位取得文件内容,以行为单位是指从当前位置开始到下一个换行符为止的内容。换行符是Chr(13) & Chr(10)两个字节组成,VB中已定义了常量vbCrLf,可直接使用。要注意的是Line Input读取一行时会把行尾的换行符去掉,因此我们在读取每行内容时要记得补上换行符才能保持得到的内容与文件一致。
Freefile:得到空闲的文件号,用这个函数取得文件号可以避免文件号的冲突。

VB.NET ListBox加载代码:

  1. Option Explicit  
  2.  
  3. 'API声明  
  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.  
  6. '常量  
  7. Private Const LB_DIR = &H18D  
  8. Private Const DDL_DRIVES = &H4000 '磁盘  
  9. Private Const DDL_DIRECTORY = &H10 '文件夹  
  10. Private Const DDL_ARCHIVE = &H20  
  11. Private Const DDL_EXCLUSIVE = &H8000&  
  12. Private Const DDL_READWRITE = &H0 '读写  
  13. Private Const DDL_READONLY = &H1 '只读  
  14. Private Const DDL_HIDDEN = &H2 '隐藏  
  15. Private Const DDL_SYSTEM = &H4 '系统  
  16. Private Const DDL_POSTMSGS = &H2000  
  17.  
  18. '-------------------------------------------------  
  19. '功能:用ListBox控件加载文件列表  
  20. '参数:lst - 指定的ListBox控件  
  21. ' sPath - 指定目录  
  22. '-------------------------------------------------  
  23. Private Sub MyListBoxLoadFolder(ByRef lst As ListBox, _  
  24. ByVal sPath As String, _  
  25. Optional bShowFolders As Boolean = True)  
  26. On Error Resume Next  
  27. Dim lngReturn As Long  
  28. Dim lngFlags As Long  
  29.  
  30. If bShowFolders = False Then  
  31. lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN  
  32. Else  
  33. lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN Or DDL_DIRECTORY  
  34. End If  
  35.  
  36. '清空列表  
  37. lst.Clear  
  38. '开始装载文件列表  
  39. lngReturn = SendMessageA(lst.hWnd, LB_DIR, lngFlags, ByVal sPath)  
  40. End Sub 
责任编辑:田树 来源: 博客
相关推荐

2009-10-23 13:10:14

VB.NET List

2010-01-21 17:58:40

VB.NET List

2009-10-29 15:28:38

VB.NET文件操作

2009-10-20 17:38:54

VB.NET Comp

2010-01-21 17:34:48

VB.NET Bool

2010-01-12 18:35:43

VB.NET Stru

2010-01-22 18:08:18

VB.NET与GDI结

2011-05-20 16:56:11

VB.NETGDI

2010-01-19 10:12:39

VB.NET Butt

2010-01-21 10:48:18

VB.NET扩展方法

2010-01-18 18:14:37

VB.NET语言特点

2009-10-13 10:21:58

VB.NET实现Web

2009-10-12 15:44:26

VB.NET动态编码技

2010-01-07 15:57:02

VB.NET ForEach

2010-01-13 10:15:19

VB.NET Stri

2010-01-08 14:56:18

VB.NET类定义

2010-01-12 18:05:38

VB.NET对象

2010-01-13 09:45:53

VB.NET Arra

2010-01-12 11:37:34

VB.NET读取图像

2009-11-03 13:33:39

VB.NET对象列表
点赞
收藏

51CTO技术栈公众号