Imports System
Imports System.Collections.Specialized
Imports System.Collections.ObjectModel
Imports System.Collections
Imports System.Text
Imports System.Configuration

Class UsingConfigurationManager


    ' Show how to use AppSettings.
    Shared Sub DisplayAppSettings()

        ' Get the AppSettings collection.
        Dim appSettings As NameValueCollection = _
        ConfigurationManager.AppSettings

        Dim keys As String() = appSettings.AllKeys

        Console.WriteLine()
        Console.WriteLine("Application appSettings:")

        ' Loop to get key/value pairs.
        Dim i As Integer
        For i = 0 To appSettings.Count - 1
            Console.WriteLine("#{0} Name: {1} Value: {2}", i, _
            keys(i), appSettings(i))
        Next i

    End Sub 'DisplayAppSettings

    ' Show how to use ConnectionStrings.
    ' This sub assumes that at least one connection string
    ' has been defined.
    Shared Sub DisplayConnectionStrings()

        ' Get the ConnectionStrings collection.
        Dim connections As ConnectionStringSettingsCollection = _
        ConfigurationManager.ConnectionStrings

        If connections.Count <> 0 Then
            Console.WriteLine("Connection strings:")
            ' Loop to get the collection elements.
            For Each connection As ConnectionStringSettings In connections
                Dim name As String = connection.Name
                Dim provider As String = connection.ProviderName
                Dim connectionString As String = connection.ConnectionString

                Console.WriteLine("Name:               {0}", name)
                Console.WriteLine("Connection string:  {0}", connectionString)
                Console.WriteLine("Provider:           {0}", provider)
            Next
        Else
            Console.WriteLine("No connection string is defined.")
        End If

    End Sub 'DisplayConnectionStrings

    ' Show how to use OpenMachineConfiguration.
    Shared Sub DisplayMachineConfigSections()
        ' Get the machine.config file.
        Dim machineConfig As Configuration = _
        ConfigurationManager.OpenMachineConfiguration()

        Dim sections As ConfigurationSectionCollection = _
        machineConfig.Sections

        Console.WriteLine()
        Console.WriteLine("Sections in machine.config:")

        ' Loop to get the sections machine.config.
        Dim section As ConfigurationSection
        For Each section In sections
            Dim name As String = section.SectionInformation.Name
            Console.WriteLine("Name: {0}", name)
        Next section

    End Sub 'DisplayMachineConfigSections


    ' Show how to use OpenExeConfiguration(ConfigurationUserLevel) 
    ' and RefreshSection. 
    ' This function creates a configuration file for the application, if one
    ' does not exist.
    Shared Sub UpdateAppSettings()
        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = _
        ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

        ' Add an entry to appSettings.
        Dim appStgCnt As Integer = _
        ConfigurationManager.AppSettings.Count
        Dim newKey As String = "NewKey" + appStgCnt.ToString()

        Dim newValue As String = DateTime.Now.ToLongDateString() + " " + _
        DateTime.Now.ToLongTimeString()

        config.AppSettings.Settings.Add(newKey, newValue)

        ' Save the configuration file.
        config.Save(ConfigurationSaveMode.Modified)

        ' Force a reload of the changed section.
        ConfigurationManager.RefreshSection("appSettings")

    End Sub 'UpdateAppSettings

    ' Show how to use OpenExeConfiguration(string).
    Shared Sub DisplayAppSettingsRawXml()


        ' Get the application path.
        Dim exePath As String = System.IO.Path.Combine( _
        Environment.CurrentDirectory, "ConfigurationManager.exe")

        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = _
        ConfigurationManager.OpenExeConfiguration(exePath)

        ' Get the AppSetins section.
        Dim appSettingSection As AppSettingsSection = _
        config.AppSettings

        ' Display raw xml.
        Console.WriteLine( _
        appSettingSection.SectionInformation.GetRawXml())

    End Sub 'DisplayAppSettingsRawXml


    ' Show how to use GetSection.
    Shared Sub DisplayAppSettingsSectionRawXml()

        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = _
        ConfigurationManager.OpenExeConfiguration( _
        ConfigurationUserLevel.None)

        ' Get the AppSetins section.
        Dim appSettingSection As AppSettingsSection = _
        CType(config.GetSection("appSettings"), AppSettingsSection)

        ' Display raw xml.
        Console.WriteLine("appSettings XML:")
        Console.WriteLine(appSettingSection.SectionInformation.GetRawXml())

    End Sub 'DisplayAppSettingsSectionRawXml


    ' Show how to use OpenMappedMachineConfiguration.
    Shared Sub DisplayMappedMachineConfigurationFileSections()
        ' Get the machine.config file.
        Dim machineConfig As Configuration = _
        ConfigurationManager.OpenMachineConfiguration()

        ' Map to the machine configuration file.
        Dim configFile As New ConfigurationFileMap(machineConfig.FilePath)
        Dim config As Configuration = _
        ConfigurationManager.OpenMappedMachineConfiguration(configFile)

        ' Display the configuration file sections.
        Dim sections As ConfigurationSectionCollection = config.Sections

        Console.WriteLine()
        Console.WriteLine("Sections in machine.config:")

        ' Loop to get the sections machine.config.
        Dim section As ConfigurationSection
        For Each section In sections
            Dim name As String = section.SectionInformation.Name
            Console.WriteLine("Name: {0}", name)
        Next section

    End Sub 'DisplayMappedMachineConfigurationFileSections


    ' Show how to use OpenMappedExeConfiguration.
    Shared Sub DisplayMappedExeConfigurationFileSections()
        ' Get the application configuration file path.
        Dim exeFilePath As String = System.IO.Path.Combine( _
        Environment.CurrentDirectory, "ConfigurationManager.exe.config")

        ' Map to the application configuration file.
        Dim configFile As New ExeConfigurationFileMap()
        configFile.ExeConfigFilename = exeFilePath
        Dim config As Configuration = _
        ConfigurationManager.OpenMappedExeConfiguration(configFile, _
        ConfigurationUserLevel.None)

        ' Display the configuration file sections.
        Dim sections As ConfigurationSectionCollection = config.Sections

        Console.WriteLine()
        Console.WriteLine("Sections in machine.config:")

        ' Loop to get the sections machine.config.
        Dim section As ConfigurationSection
        For Each section In sections
            Dim name As String = section.SectionInformation.Name
            Console.WriteLine("Name: {0}", name)
        Next section

    End Sub 'DisplayMappedExeConfigurationFileSections

    Shared Sub Main(ByVal args() As String)

        ' Show how to use OpenExeConfiguration() and RefreshSection.
        UpdateAppSettings()

        ' Show how to use AppSettings.
        DisplayAppSettings()

        ' Show how to use OpenExeConfiguration(string).
        DisplayAppSettingsRawXml()

        ' Show how to use GetSection.
        DisplayAppSettingsSectionRawXml()

        ' Show how to use ConnectionStrings.
        DisplayConnectionStrings()

        ' Show how to use OpenMappedMachineConfiguration.
        DisplayMappedMachineConfigurationFileSections()

        ' Show how to use OpenMappedExeConfiguration.
        DisplayMappedExeConfigurationFileSections()

        ' Show how to use OpenMachineConfiguration.
        DisplayMachineConfigSections()

    End Sub 'Main 
End Class 'UsingConfigurationManager