Creating your own enumerated parameter values

This code sample is a simple save dialog wrapper class, that demonstrates how to use your own enumerated parameter values.





Public Class SaveDialog


    Private v_haspicked As Boolean = False
    Private s_handle As String = ""
    Private s_filter As String = "All files (*.*)|*.*"
    Private s_startlocation As String = My.Computer.FileSystem.SpecialDirectories.Desktop
    Private s_windowtitle As String = "Choose the location and name of the target file"
    Private s_defaultname As String = ""

    Public Enum ExportType

        savetype_AllFiles = 0
        savetype_Excel = 1
        savetype_PDF = 2
        savetype_NotePad = 3

    End Enum

    Public Sub New(ByVal SaveFileTypeFilter As SaveDialog.ExportType)

        If SaveFileTypeFilter = ExportType.savetype_AllFiles Then
            s_filter = "All files (*.*)|*.*"
            s_defaultname = "query"
        End If

        If SaveFileTypeFilter = ExportType.savetype_Excel Then
            s_filter = "Excel files (*.xls)|*.xls"
            s_defaultname = "query.xls"
        End If

        If SaveFileTypeFilter = ExportType.savetype_NotePad Then
            s_filter = "Notepad files (*.txt)|*.txt"
            s_defaultname = "query.txt"
        End If

        If SaveFileTypeFilter = ExportType.savetype_PDF Then
            s_filter = "Acrobat PDF (*.pdf)|*.pdf"
            s_defaultname = "query.pdf"
        End If

    End Sub

    Public ReadOnly Property HasPicked() As Boolean
        Get
            Return v_haspicked
        End Get
    End Property

    Public ReadOnly Property FileHandle() As String
        Get
            Return s_handle
        End Get
    End Property

    Public Property StartLocation() As String
        Get
            Return s_startlocation
        End Get
        Set(ByVal value As String)
            s_startlocation = value
        End Set
    End Property

    Public Property WindowTitle() As String
        Get
            Return s_windowtitle
        End Get
        Set(ByVal value As String)
            s_windowtitle = value
        End Set
    End Property

    Public Property DefaultFileName() As String
        Get
            Return s_defaultname
        End Get
        Set(ByVal value As String)
            s_defaultname = value
        End Set
    End Property

    Public Sub ShowDialog()

        Dim mysavedialog As New SaveFileDialog
        mysavedialog.Filter = s_filter
        mysavedialog.Title = s_windowtitle
        mysavedialog.FileName = s_defaultname
        mysavedialog.InitialDirectory = s_startlocation
        If mysavedialog.ShowDialog = System.Windows.Forms.DialogResult.Cancel Then
            v_haspicked = False
        Else
            v_haspicked = True
            s_handle = mysavedialog.FileName
        End If

    End Sub

End Class