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

Share the Post:
data observability

Data Observability Explained

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular