'Beispiel: VB .Net - ComboBox - Inhalt in einer Zeile in Datei schreiben und wieder auslesen ' Imports System.IO Public Class Form1 Private filename As String = "c:\donky.txt" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Test : Eine Zeile mit den in der Combobox vorhandenen Eintraegen '( Semikolon separiert ) in eine Testdatei 'schreiben. Try Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(filename) Dim writestring As String = "" Dim seperator As Char = (";") For Each s As String In ComboBox1.Items writestring &= s & seperator Next If sw IsNot Nothing Then sw.Write(writestring) sw.Close() End If MessageBox.Show(writestring, "Info") Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Test: Gespeichert Zeile aus Datei auslesen und getrennt in ComboBox einfuegen Try If File.Exists(filename) Then Dim sr As System.IO.StreamReader = New System.IO.StreamReader(filename) Dim Result As String = sr.ReadLine() Dim seperator As Char = (";") Dim s() As String = Result.Split(seperator) For n As Integer = 0 To s.GetUpperBound(0) - 1 ComboBox2.Items.Add(s(n)) Next If ComboBox2.Items.Count > 0 Then ComboBox2.SelectedIndex = 0 sr.Close() Else End If Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Items() As String = {"Hallo", "Welt", "Greetings"} With ComboBox1 For Each s As String In Items .Items.Add(s) Next If .Items.Count > 0 Then .SelectedIndex = 0 End With End Sub End Class