devxlogo

BrowseForFoldersDialog – A class to display the BrowseForFolders dialog box

BrowseForFoldersDialog – A class to display the BrowseForFolders dialog box

' a class to display the BrowseForFolders dialog' usage:'   Dim diag As New BrowseForFoldersDialog()'   diag.Description = "Select a directory"'   If diag.ShowDialog() = DialogResult.OK Then'      ' the user selected this directory'      directory = diag.Path'   End If'' IMPORTANT: requires a reference to the System.Design.Dll assemblyClass BrowseForFoldersDialog    ' the Description that appears in the dialog    Dim m_Description As String    Property Description() As String        Get            Return m_Description        End Get        Set(ByVal Value As String)            m_Description = Value        End Set    End Property    ' the path returned by the dialog    Dim m_Path As String    Property Path() As String        Get            Return m_Path        End Get        Set(ByVal Value As String)            m_Path = Value        End Set    End Property    ' the ShowDialog method    Function ShowDialog() As System.Windows.Forms.DialogResult        Dim fb As New FolderBrowser(Me)        Return fb.ShowDialog()    End Function    ' an inner private class that inherits from a .NET Framework class    ' we need this class because we want to access protected members    Private Class FolderBrowser        Inherits System.Windows.Forms.Design.FolderNameEditor        Dim parent As BrowseForFoldersDialog        ' store a reference to the outer object, so that its        ' private properties can be accessed        Sub New(ByVal parent As BrowseForFoldersDialog)            Me.parent = parent        End Sub        ' show the dialog        Function ShowDialog() As System.Windows.Forms.DialogResult            Dim fb As New _                System.Windows.Forms.Design.FolderNameEditor.FolderBrowser()            fb.Description = parent.m_Description            ShowDialog = fb.ShowDialog()            If ShowDialog = Windows.Forms.DialogResult.OK Then                parent.m_Path = fb.DirectoryPath            End If        End Function    End ClassEnd Class

devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist