Guten Morgen!
Ich habe eine ListBox, in der Dateien gespeichert und später wieder geladen werden sollen. Will man speichern, aber es befindet sich keine Datei in der ListBox, erscheint eine MsgBox:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayListSAVE.Click
If ListBox1.Items.Count = 0 Then
MessageBox.Show(Me, "Füge erst Lieder in die Playlist ein, dann kannst du speichern!", "Negativ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
Else
Dim PlayList As New System.Collections.Specialized.StringCollection
For Each item As String In ListBox1.Items
PlayList.Add(item)
Next
My.Settings.PlayList = PlayList
My.Settings.Save()
MessageBox.Show(Me, "Deine PlayList wurde gespeichert. Beim nächsten Start der Anwendung auf 'Laden' Klicken.", "Gespeichert!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Wenn man das Programm das erste mal startet und auf "Laden" klickt, hängt es sich auf, weil es nichts zu laden gibt. Also habe ich diese Meldung mit eingebaut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayListLOAD.Click
If My.Settings.PlayList.Count = 0 Then
MessageBox.Show(Me, "Du hast noch keine PlayList erstellt!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
ListBox1.Items.Clear()
For Each item As String In My.Settings.PlayList
ListBox1.Items.Add(item)
Next
End Sub
Doch die Methode funktioniert auch nicht... Es kommt die Meldung: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt." Hat es evtl. mit der "= 0" etwas zutun?
Danke schon mal!
