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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
細(xì)談VB.NET路徑選擇對(duì)話框?qū)崿F(xiàn)(API)實(shí)例

VB.NET 這門語(yǔ)言被我們大部分人所熟悉。但是今天在這里還是要介紹一下首先接受一下VB.NET，更主要的是讓大家深入的了解一下VB.NET路徑選擇目錄對(duì)話框?qū)嵗?/p>

VB.NET是Visual Basic.net的簡(jiǎn)稱。提到VB.NET，就不能不先提一下vb（Visual Basic）。Visual Basic是Windows環(huán)境下的一種簡(jiǎn)單、易學(xué)的編程語(yǔ)言，由于其開發(fā)程序的快速、高效，深受程序員的喜愛。嚴(yán)格地來說Visual Basic只是半面向?qū)ο蟮恼Z(yǔ)言，其面向?qū)ο蟮哪芰俺绦虻膱?zhí)行效率往往不能一些程序員的需要，因此，大的項(xiàng)目很少使用Visual Basic來開發(fā)。Visual Basic的***一個(gè)版本是Visual Basic 6.0。在Visual Basic 6.0之后，微軟公司推出了全新的“.NEt構(gòu)架”，在其***個(gè)版本-Visual Studio.NET 7.0中，集成了Visual Basic 7.0、Visual C++ 7.0及C#，其中的Visual Basic 7.0（vb 7.0），即是vb.net的***個(gè)版本。現(xiàn)在.NET是***版本是Visual Studio 2005，對(duì)應(yīng)的vb.net的***版本是集成在其中的Visual Basic 9.0(vb 9.0)，也可稱為vb.net 2005。 下面介紹一下VB.NET路徑選擇目錄對(duì)話框?qū)崿F(xiàn)（API）：

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

以上就VB.NET路徑解決方案，希望可以給你帶來幫助。

【編輯推薦】

  1. 簡(jiǎn)單講述VB.NET表間拖放
  2. 五分鐘學(xué)會(huì)VB.NET實(shí)現(xiàn)拖放
  3. 講述強(qiáng)大的VB.NET Web Forms，使用起來卻如此簡(jiǎn)單
  4. 分析VB QuickSort應(yīng)用程序
  5. 兩步就可以掌握VB使用ArrayList類

網(wǎng)站名稱：細(xì)談VB.NET路徑選擇對(duì)話框?qū)崿F(xiàn)(API)實(shí)例
網(wǎng)頁(yè)鏈接：http://m.5511xx.com/article/codceic.html