[Visual Basic] Richiamare funzione su modulo per restituire list

visualrenzo

Nuovo Utente
1 Feb 2019
6
0
1
Ho scritto questo codice per leggere il contenuto nel fileconfig.
Questo si trova in un modulo ma vorrei che i dati estratti vadano in una lista per poi popolare una listbox al form1

Chiamo la funzione attraverso un pulsante del form1 ma mi da un errore.
' errore eccezione non gestita, riferimento ad un oggetto non impostato su una istanza di oggetto"
su questa istruzione:
Codice:
 ListaConfig.Add(key & ":" & Var)

Questo è il codice nel modulo:

Codice:
Module ModuloConfig


    Public Function MainConfig(ByVal ListaConfig As List(Of String))

        Dim Var As String

        Try
            Dim appSettings = ConfigurationManager.AppSettings


            If appSettings.Count = 0 Then
                Console.WriteLine("AppSettings is empty.") ' è vuoto
            Else

                For Each key As String In appSettings.AllKeys 'legge tutte le key

                    Var = (ConfigurationManager.AppSettings(key))

                    ListaConfig.Add(key & ":" & Var) ' errore eccezione non gestita, riferimento ad un oggetto non impostato su una istanza di oggetto

                Next
            End If
        Catch e As ConfigurationErrorsException
            Console.WriteLine("Error reading app settings")
        End Try
        Return ListaConfig
    End Function

questo il contenuto del config:

Codice:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
  </startup>

  <appSettings>
    <add key="Setting1" value="Pippo1" />
    <add key="Setting2" value="Pippo2" />
  </appSettings>
</configuration>
questo invece quello che ho nel form alla pressione del button:

Codice:
Public Class Form1
    Public Lista As List(Of String)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MainConfig(lista)
    End Sub
End Class
 

Allegati