Liebe Community,
ihr seid meine letzte Hoffnung. Hab schon alles mögliche durchprobiert aber noch keine Lösung für mein Problem gefunden.
Ich habe eine Listbox in die man 3 einträge schreiben kann (hier Ordnerpfade). Diese möchte ich in die My.Settings schreiben um später darauf zugreifen zu können.
Allerdings bekomme ich beim Auslesen immer einen "Argument out of range" Fehler. Ich habe mir bereits einige andere Themen hier im Forum durchgelesen, dieses haben mir aber leider nicht weitergeholfen. Hier ist der Quellcode des Programms:
Der Fehler kommt dann am Ende bei "My.Settings.Ziel1 = ListBox1.SelectedItem.ToString". Ich habe auch schon folgendes versucht:
Aber auch das löst einen Fehler aus.
Ich wäre sehr dankbar um eure Hilfe, da ich kein Profi bin und eher zum Spaß Programmiere.
liebe Grüße -
ihr seid meine letzte Hoffnung. Hab schon alles mögliche durchprobiert aber noch keine Lösung für mein Problem gefunden.
Ich habe eine Listbox in die man 3 einträge schreiben kann (hier Ordnerpfade). Diese möchte ich in die My.Settings schreiben um später darauf zugreifen zu können.
Allerdings bekomme ich beim Auslesen immer einen "Argument out of range" Fehler. Ich habe mir bereits einige andere Themen hier im Forum durchgelesen, dieses haben mir aber leider nicht weitergeholfen. Hier ist der Quellcode des Programms:
VB.NET-Quellcode
- Public Class Einstellungen
- Private Sub Einstellungen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- If My.Settings.Überschreiben = True Then
- CheckBox1.Checked = True
- ElseIf My.Settings.Überschreiben = False Then
- CheckBox1.Checked = False
- End If
- ListBox1.Items(1) = My.Settings.Ziel1
- ListBox1.Items(2) = My.Settings.Ziel2
- ListBox1.Items(3) = My.Settings.Ziel3
- End Sub
- Private Sub CheckBox1_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
- If CheckBox1.Checked = True Then
- My.Settings.Überschreiben = True
- ElseIf CheckBox1.Checked = False Then
- My.Settings.Überschreiben = False
- End If
- My.Settings.Save()
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- FolderBrowserDialog1.ShowDialog()
- ListBox1.Items.Add(FolderBrowserDialog1.SelectedPath)
- If ListBox1.Items.Count = 4 Then
- ListBox1.Items.Remove(ListBox1.Items(3))
- End If
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- ListBox1.Items.Remove(ListBox1.SelectedItem)
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- My.Settings.Ziel1 = ListBox1.SelectedItem.ToString
- My.Settings.Ziel2 = ListBox1.SelectedItem.ToString
- My.Settings.Ziel3 = ListBox1.SelectedItem.ToString
- My.Settings.Save()
- Me.Close()
- End Sub
- End Class
Der Fehler kommt dann am Ende bei "My.Settings.Ziel1 = ListBox1.SelectedItem.ToString". Ich habe auch schon folgendes versucht:
Aber auch das löst einen Fehler aus.
Ich wäre sehr dankbar um eure Hilfe, da ich kein Profi bin und eher zum Spaß Programmiere.
liebe Grüße -