VB.NET是一款功能強(qiáng)大的開發(fā)平臺(tái)，大家可以通過它來實(shí)現(xiàn)一個(gè)功能強(qiáng)大，安全穩(wěn)定的開發(fā)環(huán)境。下面我們可以通過對(duì)VB.NET對(duì)話框的引用來對(duì)此進(jìn)行一個(gè)詳細(xì)的介紹，希望能給大家?guī)硪恍椭?t#

VB.NET對(duì)話框調(diào)用概述：

我們都知道在.NET中調(diào)用一個(gè)打開文件的對(duì)話框很容易，定義一個(gè)OpenFileDialog類的實(shí)例就可以直接使用了。有時(shí)候我們需要讓用戶選擇一個(gè)工作目錄，或者一個(gè)系統(tǒng)目錄，于是就在搜索是不是有類似的OpenDirectoryDialog類呢?當(dāng)然***有一個(gè)，這樣就很方便了。其實(shí)系統(tǒng)并沒有提供這么一個(gè)類，下面我們就采用很短的代碼構(gòu)建這個(gè)目錄瀏覽對(duì)話框。

VB.NET對(duì)話框調(diào)用思想：

在項(xiàng)目的引用中，瀏覽一下，會(huì)發(fā)現(xiàn)有一個(gè)System.Designer.dll, 默認(rèn)這個(gè)dll并沒有被項(xiàng)目引用，我們今天就把它引到項(xiàng)目中。在System.Windows.Forms.Design這個(gè)名控件下面有一個(gè)FolderNameEditor 類，其實(shí)就是一個(gè)目錄瀏覽對(duì)話框，只不過這個(gè)類不能直接使用，必須Inherit。看下面的代碼：

為了模塊化，我們?cè)陧?xiàng)目中新建一個(gè)class，命名為OpenDirectoryDialog，輸入類似下面的代碼：

VB.NET對(duì)話框調(diào)用代碼：

Imports System.Windows.Forms   
Public Class FolderBrowserClass   
FolderBrowser   
Inherits System.Windows.Forms.   
Design.FolderNameEditor   
Public Shared Function ShowDialog()   
Function ShowDialog() As String   
Dim fb As New FolderBrowser()   
'對(duì)話框的title   
fb.Description = "Select a   
Directory to Scan"   
'默認(rèn)是系統(tǒng)的桌面目錄   
fb.StartLocation = Design.Folder   
NameEditor.FolderBrowserFolder.Desktop   
'對(duì)話框的樣式   
fb.Style = Design.FolderNameEditor.   
FolderBrowserStyles.ShowTextBox   
fb.ShowDialog()   
Return fb.DirectoryPath   
End Function   
End Class  

編譯好以后，我們就可以直接用這個(gè)Class了。

VB.NET對(duì)話框調(diào)用如下：

Debug.WriteLine(Open   
DirectoryDialog.   
ShowDialog())