none
Come aggiungere delle tringhe di testo ad una ComboBox RRS feed

  • Domanda

  • Ciao. Dovrei aggiungere delle stringhe di testo da un file ad una ComboBox.

    Ho provato in questo modo, ma non funziona. Come posso fare?

    Dim LM As New IO.StreamReader("\\SERVERCONCINI\Public\Diario elettronico\resources\mtr.dex")
            Dim lunghezza = Len(My.Computer.FileSystem.ReadAllText("\\SERVERCONCINI\Public\Diario elettronico\resources\mtr.dex"))
            SubCComboBox.Items.Clear()
            Dim a As Integer = 0
            Do
                SubCComboBox.Items.Add(LM.ReadLine)
                a += 1
            Loop Until a = lunghezza
            LM.Close()

    mercoledì 23 ottobre 2013 12:21

Risposte

  • Ottieni un array di tutte le righe contenute nel file tramite il metodo ReadAllLines() e poi aggiungile alla ComboBox usando il metodo AddRange() di quest'ultima.

    ComboBox1.Items.AddRange(IO.File.ReadAllLines("")) ' Tra le virgolette inserisci il percorso del file da caricare

    • Contrassegnato come risposta Andrea Concini mercoledì 23 ottobre 2013 12:46
    mercoledì 23 ottobre 2013 12:27
  • Ciao,

    per sistemare il tuo codice, puoi sfruttare il fatto che uno StreamReader gestisce un flag di raggiunta fine:

    Dim LM As New IO.StreamReader("\\SERVERCONCINI\Public\Diario elettronico\resources\mtr.dex")
    SubCComboBox.Items.Clear()
    While Not(LM.EndOfStream)         
       SubCComboBox.Items.Add(LM.ReadLine)
    End while
    LM.Close()

    In alternativa, per utilizzare una sintassi più concisa, puoi certamente appoggiarti all'esempio di frenci.


    Emiliano Musso

    • Contrassegnato come risposta Andrea Concini mercoledì 23 ottobre 2013 12:47
    mercoledì 23 ottobre 2013 12:46
    Moderatore

Tutte le risposte

  • Ottieni un array di tutte le righe contenute nel file tramite il metodo ReadAllLines() e poi aggiungile alla ComboBox usando il metodo AddRange() di quest'ultima.

    ComboBox1.Items.AddRange(IO.File.ReadAllLines("")) ' Tra le virgolette inserisci il percorso del file da caricare

    • Contrassegnato come risposta Andrea Concini mercoledì 23 ottobre 2013 12:46
    mercoledì 23 ottobre 2013 12:27
  • Ciao,

    per sistemare il tuo codice, puoi sfruttare il fatto che uno StreamReader gestisce un flag di raggiunta fine:

    Dim LM As New IO.StreamReader("\\SERVERCONCINI\Public\Diario elettronico\resources\mtr.dex")
    SubCComboBox.Items.Clear()
    While Not(LM.EndOfStream)         
       SubCComboBox.Items.Add(LM.ReadLine)
    End while
    LM.Close()

    In alternativa, per utilizzare una sintassi più concisa, puoi certamente appoggiarti all'esempio di frenci.


    Emiliano Musso

    • Contrassegnato come risposta Andrea Concini mercoledì 23 ottobre 2013 12:47
    mercoledì 23 ottobre 2013 12:46
    Moderatore
  • Grazie mille.
    mercoledì 23 ottobre 2013 12:46
  • Grazie mille.
    Prego.
    mercoledì 23 ottobre 2013 13:51