[Visual Basic] Richiamare funzione su modulo per restituire list

Discussione in 'Visual Basic' iniziata da visualrenzo, 23 Febbraio 2019.

Tag (etichette):
  1. visualrenzo

    visualrenzo Nuovo Utente

    Registrato:
    1 Febbraio 2019
    Messaggi:
    6
    Mi Piace Ricevuti:
    0
    Punteggio:
    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
     

    Files Allegati:

    • errore.PNG
      errore.PNG
      Dimensione del file:
      18 KB
      Visite:
      38
Sto caricando...

Condividi questa Pagina