VB.Net/GUI/Dialog Folder Browser
Folder Browser Dialog: print Selected Folder
<source lang="vbnet"> Imports System Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.IO Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() "Declare a FolderBrowserDialog object Dim objFolderBrowserDialog As New FolderBrowserDialog "Set the FolderBrowserDialog control properties objFolderBrowserDialog.Description = "Select your favorite folder:" objFolderBrowserDialog.RootFolder = Environment.SpecialFolder.Personal objFolderBrowserDialog.ShowNewFolderButton = True "Show the Browse For Folder dialog If objFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then "Display the selected folder System.Console.WriteLine(objFolderBrowserDialog.SelectedPath) End If "Clean up objFolderBrowserDialog.Dispose() objFolderBrowserDialog = Nothing End Sub
End Class
</source>
Folder Browser Dialog: set Description
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog dlgFolder = New System.Windows.Forms.FolderBrowserDialog
dlgFolder.Description = "Select the folder that contains the XML files." If dlgFolder.ShowDialog() = DialogResult.OK Then Console.WriteLine( dlgFolder.SelectedPath) End If End Sub
End Class
</source>
Folder Browser Dialog: set selected folder
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog dlgFolder = New System.Windows.Forms.FolderBrowserDialog
dlgFolder.SelectedPath = "C:\" If dlgFolder.ShowDialog() = DialogResult.OK Then Console.WriteLine( dlgFolder.SelectedPath) End If End Sub
End Class
</source>