Vb Hilfe

[Erzengel,]

Hi ich habe einen einfachen media player mit vb geschrieben mit einer Listbox als Playlist. Nun will ich das er beim schließen des programms den listbox inhalt auf meinem pc abspeichert und mein starten aufruft, sodass ich nicht immer neu die musik laden muss.

Bisher sieht mein Códe so aus:

 Spoiler

PHP Code:

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        BindingSource1.Add(OpenFileDialog1.FileName)
    End Sub

    Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
        AxWindowsMediaPlayer1.URL = ListBox1.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each Nam In IO.File.ReadAllText("C:\Users\Adrian\Desktop\Musik.txt")
            ListBox1.Items.Add(Nam)
        Next
    End Sub

    Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
        Dim sfd As New SaveFileDialog
        With sfd
            .Filter = "Textdateien (*.txt) |*.txt"
            .ShowDialog()

            If .FileName <> "" Then
                Dim Items1 As String = ""
                For Each Items In ListBox1.Items
                    Items1 &= Items & vbNewLine

                Next
                IO.File.WriteAllLines(.FileName, Items1.Split(vbNewLine))
            End If
        End With
    End Sub
End Class 


Wenn ich nun debugge kommt aber folgender fehler:

 Spoiler

Was hab ich falsch gemacht??

Ich bin absoluter anfänger in Vb habe mich bei dem code an an youtube tuturial orientiert

[bestora]

mh....
DataSource Eigenschaften klingt nach das du es declarieren musst besser

der denkt ja so

WriteText("OWOW")
WriteText("OWOW")
oder ähnlich beim schreiben von texten

Aber das sieht dann so aus
OWOW
OWOW

Aber die Listbox erkennt das nicht
Ich würde sagen, dein fehler liegt an ReadAllText
Wenn du schon For Each benutzt dann für jede einzelne Zeile
So würde ich die Logik lösen

Wenn jemand einen Anderen vorschlag hat dann raus damit

[Erzengel,]

ich glaub ich habs selber schon rausgefunden.
Da steht ja im Fehler das das nicht geht weil die datasource eigenschafft bei der Listbox aktiviert ist.
Aber diese muss ja aktiviert sein sonst funktioniert der openfiledialog nicht mehr..

Ich habe auch schon dieses Code ausprobiert

 Spoiler

Public Sub ListBox_Save(ByVal ListBox As ListBox, _
  ByVal sFile As String)
 
  ' Inhalt einer ListBox speichern
  Dim oStream As IO.StreamWriter
  Dim i As Short
 
  oStream = New IO.StreamWriter(sFile)
 
  For i = 0 To ListBox.Items.Count - 1
    oStream.WriteLine(ListBox.Items(i))
  Next
  oStream.Close()
End Sub
 
Public Sub ListBox_Read(ByVal ListBox As ListBox, _
  ByVal sFile As String)
 
  ' Inhalt einer ListBox speichern
  Dim oStream As IO.StreamReader
  Dim sLine As String
 
  ' ListBox löschen
  ListBox.Items.Clear()
 
  ' Existsiert die Datei?
  Dim oFile As New IO.FileInfo(sFile)
 
  If oFile.Exists() = True Then
    oStream = New IO.StreamReader(sFile)
    ' Datei zeilenweise auslesen
    Do
      sLine = oStream.ReadLine()
      If IsNothing(sLine) Then Exit Do
      ListBox.Items.Add(sLine)
    Loop
    oStream.Close()
  End If
End Sub

Private Sub cmdSave_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles cmdSave.Click
 
  ' ListBox speichern
  Dim sFile As String
 
  sFile = Application.StartupPath & "\Liste.dat"
  ListBox_Save(ListBox1, sFile)
End Sub
 
Private Sub cmdClear_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles cmdClear.Click
 
  ' Inhalt der ListBox löschen
  ' (dient nur zur besseren Demonstration)
  ListBox1.Items.Clear()
End Sub
 
Private Sub cmdRead_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles cmdRead.Click
 
  ' ListBox einlesen
  Dim sFile As String
 
  sFile = Application.StartupPath & "\Liste.dat"
  ListBox_Read(ListBox1, sFile)
End Sub

und da kahm der gleiche Fehler.
Heißt das dann man kann grundsetzlich nicht den inhalt einer listbox speichern wenn da bei datasource eigenschafft aktiviert ist?

[nkkk]

warum meinst du das dataSource aktiviert sein muss damit OpenFileDialog funktioniert????

[Erzengel,]

weil er sonst nichts in die listbox einfügt. Ich habs schon ohne ausprobiert es geht nicht.
Aber ok wenns nicht geht dann gehts nicht. Danke für die antworten.

[nkkk]

also es ist so:

mit der DataSource eigenschaft, bindest du die elemente der ListBox an ein Auflistungsobjekt(z.B. ein Array, oder eine Liste).
wenn das geschehen ist kannst du die elemente der ListBox nicht mit Add ändern, da du ja mit der DataSource eigenschaft festlegt das die LostBox genu die elemnte enthält die auch dein Auflistungsobjekt enthält.
du kannst allerdings das Auflistungsobjekt vedrändern und die Bindung aktualisieren.

wenn du also manuell mit Add und remove Element hinzufügen willst darfst du DataSource nicht setzten.

[Erzengel,]

und wie muss ich das dann machen wenn das mit add nicht geht?

[nkkk]

kommt drauf an auf was du den DataSource eigenschaft gesetzt hast

[Avarius210]

Probier mal hinter "Nam" einen Punkt zu schreiben und schaue dort was sonst noch für Eigenschaften aufgerufen werden können.
Z.B. ListBox1.Items.Add(Nam.ToString)

[Erzengel,]

ToString ist auch das einzige was kommt und dann kommt der gleiche fehler

[Avarius210]

Probier mal das:

PHP Code:

        Dim reader As StreamReader = New StreamReader("Hier der Pfad")
        Dim zeile As String

        Try
            Do
                zeile = reader.ReadLine
                ListBox1.Items.Add(zeile)
            Loop Until reader.Peek = -1
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        Finally
            reader.Close()
        End Try