Hallo,
ich habe das Problem das ich mehrere(7) Listboxen in My.Settings speichern möchte.
Ich habe von Youtube jemanden gefunden der 1 Listbox in My.settings speichert und ich habe schon versucht das so oft zu machen wie viele Listboxen ich habe, aber das funktioniert irgendwie nicht.
Mein Quellcode zum speichern sieht so aus:
Und zum laden:
Bitte um schnelle Antwort
ich habe das Problem das ich mehrere(7) Listboxen in My.Settings speichern möchte.
Ich habe von Youtube jemanden gefunden der 1 Listbox in My.settings speichert und ich habe schon versucht das so oft zu machen wie viele Listboxen ich habe, aber das funktioniert irgendwie nicht.
Mein Quellcode zum speichern sieht so aus:
VB.NET-Quellcode
- Dim save As String For i As Integer = 0 To ListBox1.Items.Count - 1 If save = "" Then
- save = ListBox1.Items(i) Else save = save & vbNewLine & ListBox1.Items(i) End If Next My.Settings.lbn1 = save For i As Integer = 0 To ListBox2.Items.Count - 1 If save = "" Then
- save = ListBox2.Items(i) Else save = save & vbNewLine & ListBox2.Items(i) End If Next My.Settings.lbn2 = save For i As Integer = 0 To ListBox3.Items.Count - 1 If save = "" Then
- save = ListBox3.Items(i) Else save = save & vbNewLine & ListBox3.Items(i) End If Next My.Settings.lbn3 = save For i As Integer = 0 To ListBox4.Items.Count - 1 If save = "" Then
- save = ListBox4.Items(i) Else save = save & vbNewLine & ListBox4.Items(i) End If Next My.Settings.lbn4 = save For i As Integer = 0 To ListBox5.Items.Count - 1 If save = "" Then
- save = ListBox5.Items(i) Else save = save & vbNewLine & ListBox5.Items(i) End If Next My.Settings.lbn5 = save For i As Integer = 0 To ListBox6.Items.Count - 1 If save = "" Then
- save = ListBox6.Items(i) Else save = save & vbNewLine & ListBox6.Items(i) End If Next My.Settings.lbn6 = save For i As Integer = 0 To ListBox7.Items.Count - 1 If save = "" Then
- save = ListBox7.Items(i) Else save = save & vbNewLine & ListBox7.Items(i) End If Next My.Settings.lbn7 = save
Und zum laden:
VB.NET-Quellcode
- Dim laden1 As New RichTextBox Dim laden2 As New RichTextBox Dim laden3 As New RichTextBox Dim laden4 As New RichTextBox Dim laden5 As New RichTextBox Dim laden6 As New RichTextBox Dim laden7 As New RichTextBox laden1.Text = My.Settings.lb1 For i As Integer = 0 To laden1.Lines.Count - 1 ListBox1.Items.Add(laden1.Lines(i)) Next laden2.Text = My.Settings.lbn2 For i As Integer = 0 To laden2.Lines.Count - 1 ListBox2.Items.Add(laden2.Lines(i)) Next laden3.Text = My.Settings.lbn3 For i As Integer = 0 To laden3.Lines.Count - 1 ListBox3.Items.Add(laden3.Lines(i)) Next laden4.Text = My.Settings.lbn4 For i As Integer = 0 To laden4.Lines.Count - 1 ListBox4.Items.Add(laden4.Lines(i)) Next laden5.Text = My.Settings.lbn5 For i As Integer = 0 To laden5.Lines.Count - 1 ListBox5.Items.Add(laden5.Lines(i)) Next laden6.Text = My.Settings.lbn6 For i As Integer = 0 To laden6.Lines.Count - 1 ListBox6.Items.Add(laden6.Lines(i)) Next laden7.Text = My.Settings.lbn7 For i As Integer = 0 To laden7.Lines.Count - 1 ListBox7.Items.Add(laden7.Lines(i)) Next
Bitte um schnelle Antwort