细谈VB.NET路径选择对话框实现(API)实例

开发 后端
文章主要介绍了VB.NET路径的选择对话框(API)的实例和介绍,让大家深入的了解VB.NET 路径,希望在文章中能够给大家带来你想要的东西。

VB.NET 这门语言被我们大部分人所熟悉。但是今天在这里还是要介绍一下首先接受一下VB.NET,更主要的是让大家深入的了解一下VB.NET路径选择目录对话框实例。

VB.NET是Visual Basic.net的简称。提到VB.NET,就不能不先提一下vb(Visual Basic)。Visual Basic是Windows环境下的一种简单、易学的编程语言,由于其开发程序的快速、高效,深受程序员的喜爱。严格地来说Visual Basic只是半面向对象的语言,其面向对象的能力及程序的执行效率往往不能一些程序员的需要,因此,大的项目很少使用Visual Basic来开发。Visual Basic的***一个版本是Visual Basic 6.0。在Visual Basic 6.0之后,微软公司推出了全新的“.NEt构架”,在其***个版本-Visual Studio.NET 7.0中,集成了Visual Basic 7.0、Visual C++ 7.0及C#,其中的Visual Basic 7.0(vb 7.0),即是vb.net的***个版本。现在.NET是***版本是Visual Studio 2005,对应的vb.net的***版本是集成在其中的Visual Basic 9.0(vb 9.0),也可称为vb.net 2005。 下面介绍一下VB.NET路径选择目录对话框实现(API):

  1. Private Type BrowseInfo  
  2. hWndOwner As Long  
  3. pIDLRoot As Long  
  4. pszDisplayName As Long  
  5. lpszTitle As Long  
  6. ulFlags As Long  
  7. lpfnCallback As Long  
  8. lParam As Long  
  9. iImage As Long  
  10. End Type  
  11. Const BIF_RETURNONLYFSDIRS = 1 
  12. Const MAX_PATH = 260 
  13. Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)  
  14. Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long  
  15. Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long  
  16. Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long  
  17.  
  18. Private Function getFolder(ByVal title As String) As String  
  19. Dim iNull As Integer, lpIDList As Long, lResult As Long  
  20. Dim sPath As String, udtBI As BrowseInfo  
  21. With udtBI  
  22. '设置弹出的对话框的父窗口句柄  
  23. .hWndOwner = Me.hWnd  
  24. .lpszTitle = lstrcat(title, "") '标题  
  25. .ulFlags = BIF_RETURNONLYFSDIRS 
  26. End With  
  27.  
  28. lpIDList = SHBrowseForFolder(udtBI)  
  29. If lpIDList Then  
  30. sPath = String$(MAX_PATH, 0)  
  31. SHGetPathFromIDList lpIDList, sPath  
  32. CoTaskMemFree lpIDList  
  33. iNull = InStr(sPath, vbNullChar)  
  34. If iNull Then  
  35. sPath = Left$(sPath, iNull - 1)  
  36. End If  
  37. End If  
  38. getFolder = sPath 
  39. End Function  
  40.  
  41. Private Sub Command1_Click()  
  42. Text1.Text = getFolder("请选择文件夹")  
  43. End Sub 


以上就VB.NET路径解决方案,希望可以给你带来帮助。

【编辑推荐】

  1. 简单讲述VB.NET表间拖放
  2. 五分钟学会VB.NET实现拖放
  3. 讲述强大的VB.NET Web Forms,使用起来却如此简单
  4. 分析VB QuickSort应用程序
  5. 两步就可以掌握VB使用ArrayList类
责任编辑:田树 来源: 编程入门
相关推荐

2011-05-20 16:49:21

VB.NET

2010-01-11 09:33:32

VB.NET对话框调用

2010-01-22 16:27:19

VB.NET关于对话框

2010-01-13 18:22:55

VB.NET对话框

2009-10-19 17:42:31

VB.NET API函

2010-01-19 18:24:29

VB.NET调用Win

2010-01-18 18:20:49

VB.NET使用API

2009-10-26 10:44:27

VB.NET API函

2009-11-03 16:20:16

VB.NET文本框

2009-10-28 14:34:44

VB.NET Tree

2009-10-28 14:13:32

VB.NET File

2009-10-21 09:40:23

VB.NET搜索

2009-10-22 09:20:46

VB.NET Proc

2009-10-15 17:50:48

VB.NET调用API

2010-01-21 09:53:55

VB.NET获取程序运

2009-10-26 19:22:29

VB.NET使用Log

2011-07-01 11:33:00

Qt 模态 非模态

2009-10-12 14:32:40

VB.NET实现定时关

2009-10-23 13:22:25

VB.NET实现拖动图

2010-01-08 15:41:36

VB.NET窗口关闭
点赞
收藏

51CTO技术栈公众号