這篇文章給大家介紹VB.NET路徑選擇對(duì)話框?qū)崿F(xiàn)API的實(shí)例分析，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。

創(chuàng)新互聯(lián)提供成都做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)頁設(shè)計(jì)，成都品牌網(wǎng)站建設(shè)，一元廣告等致力于企業(yè)網(wǎng)站建設(shè)與公司網(wǎng)站制作，十載的網(wǎng)站開發(fā)和建站經(jīng)驗(yàn),助力企業(yè)信息化建設(shè)，成功案例突破上1000+,是您實(shí)現(xiàn)網(wǎng)站建設(shè)的好選擇.

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

VB.NET是Visual Basic.net的簡稱。提到VB.NET，就不能不先提一下vb（Visual Basic）。Visual Basic是Windows環(huán)境下的一種簡單、易學(xué)的編程語言，由于其開發(fā)程序的快速、高效，深受程序員的喜愛。嚴(yán)格地來說Visual Basic只是半面向?qū)ο蟮恼Z言，其面向?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è)版本?，F(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）：

Private Type BrowseInfo  hWndOwner As Long  pIDLRoot As Long  pszDisplayName As Long  lpszTitle As Long  ulFlags As Long  lpfnCallback As Long  lParam As Long  iImage As Long  End Type  Const BIF_RETURNONLYFSDIRS = 1 Const MAX_PATH = 260 Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)  Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long  Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long  Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long   Private Function getFolder(ByVal title As String) As String  Dim iNull As Integer, lpIDList As Long, lResult As Long  Dim sPath As String, udtBI As BrowseInfo  With udtBI  '設(shè)置彈出的對(duì)話框的父窗口句柄  .hWndOwner = Me.hWnd  .lpszTitle = lstrcat(title, "") '標(biāo)題  .ulFlags = BIF_RETURNONLYFSDIRS End With   lpIDList = SHBrowseForFolder(udtBI)  If lpIDList Then  sPath = String$(MAX_PATH, 0)  SHGetPathFromIDList lpIDList, sPath  CoTaskMemFree lpIDList  iNull = InStr(sPath, vbNullChar)  If iNull Then  sPath = Left$(sPath, iNull - 1)  End If  End If  getFolder = sPath End Function   Private Sub Command1_Click()  Text1.Text = getFolder("請(qǐng)選擇文件夾")  End Sub

關(guān)于VB.NET路徑選擇對(duì)話框?qū)崿F(xiàn)API的實(shí)例分析就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到。

網(wǎng)頁名稱：VB.NET路徑選擇對(duì)話框?qū)崿F(xiàn)API的實(shí)例分析
標(biāo)題來源：http://chinadenli.net/article10/joiigo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、網(wǎng)站導(dǎo)航、網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、做網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)