Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
Aug 31, 2002

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 assembly

Class 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 Class

End Class
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date