folderbrowserdialog.vb

来自「Pocket Image Editor v0.1源码(.NET源码)」· VB 代码 · 共 73 行

'
' Common Dialog wrapper class for FolderBrowserForm
' Designed to follow object model of desktop framework control
' (c) 2004 Peter Foot, OpenNETCF
'
Imports System
Imports System.Windows.Forms

Namespace OpenNETCF.Windows.Forms

    '/ <summary>
    '/ Represents a common dialog box that allows the user to choose a folder.
    '/ </summary>
    Public Class FolderBrowserDialog
        Inherits CommonDialog
        Private m_dialog As FolderBrowserForm


        '/ <summary>
        '/ Initializes a new instance of the OpenNETCF.Windows.Forms.FolderBrowserDialog class.
        '/ </summary>
        Public Sub New()
            m_dialog = New FolderBrowserForm
        End Sub 'New


        '/ <summary>
        '/ Runs a common dialog box with a default owner.
        '/ </summary>
        '/ <returns></returns>
        Public Shadows Function ShowDialog() As DialogResult
            Return m_dialog.ShowDialog()
        End Function 'ShowDialog


        '/ <summary>
        '/ Resets properties to their default values.
        '/ </summary>
        Public Sub Reset()
            m_dialog.Reset()
        End Sub 'Reset

        '/ <summary>
        '/ Gets or sets the path selected by the user.
        '/ </summary>
        Public Property SelectedPath() As String
            Get
                Return m_dialog.SelectedPath
            End Get
            Set(ByVal Value As String)
                m_dialog.SelectedPath = Value
            End Set
        End Property

        '/ <summary>
        '/ Gets or sets a value indicating whether the New Folder button appears in the folder browser dialog box.
        '/ </summary>
        Public Property ShowNewFolderButton() As Boolean
            Get
                Return m_dialog.ShowNewFolderButton
            End Get
            Set(ByVal Value As Boolean)
                m_dialog.ShowNewFolderButton = Value
            End Set
        End Property

        '/ <summary>
        '/ </summary>
        Public Overloads Sub Dispose()
            m_dialog.Dispose()
        End Sub 'Dispose
    End Class 'FolderBrowserDialog
End Namespace