Füllen von Comboboxen aus einem Textfile

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Imports System.IO

Module modFillCombos

    Public Sub FillCombos(ByVal cmbBox As ComboBox, ByVal ConfigFile As String)

        Dim StmReader As StreamReader = File.OpenText(ConfigFile)

        While (StmReader.Peek() <> -1)
            cmbBox.Items.Add(StmReader.ReadLine())
        End While

        StmReader.Close()

        cmbBox.SelectedIndex = 0


    End Sub

End Module