VisualBasic ListBox als Playlist umbauen?

[Lucifer[93]]

Hi, wollte mir einen kleinen privaten Mediaplayer coden, hab das soweit auch hinbekommen:

Public Class Form1

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dr As DialogResult
Dim OpenFileDialogMP As New OpenFileDialog
OpenFileDialogMP.Filter = "Windows Media Audio (wma)|*.wma|MPEG 3 (mp3)|*.mp3"
dr = OpenFileDialogMP.ShowDialog
If dr <> Windows.Forms.DialogResult.OK Then
Exit Sub
End If

AxWindowsMediaPlayer1.URL = OpenFileDialogMP.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ComboBox1.Text = "1" Then


AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title.mp3"
ElseIf ComboBox1.Text = "2" Then
AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title2.mp3"
ElseIf ComboBox1.Text = "3" Then
AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title3.mp3"
End If
End Sub

Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub
End Class

Jetzt folgendes:

Ich möchte, das wenn ich nach Select Music meine Musik ausgewählt habe, der FileName, also das die ausgewählte Datei in meiner ListBox1 erscheint. Wie kann ich das implementieren?

 

[InkognitoGER]

Hi,

das machst du mit Listbox.items.add

z.B. so

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If ComboBox1.Text = "1" Then
AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title.mp3"
ElseIf ComboBox1.Text = "2" Then
AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title2.mp3"
ElseIf ComboBox1.Text = "3" Then
AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title3.mp3"
End If

Listbox1.Items.Add(AxWindowsMediaPlayer1.URL.Substring(AxWindowsMediaPlayer1.URL .LastIndexOf("\")))

End Sub

Als kleiner Tipp.
Bennene die Steuerelemente immer sinnvoll.
z.b. cmdAbspielen anstatt Button2
Macht das Leben um einiges leichter.

 

[InkognitoGER]

Sorry für Doppel-Post ich war zu doof

...

 

[Housechen]

Oder besser:

AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title" + Combobox1.Text +".mp3"

Wenn du prüfen willst, ob du eine Zahl hast:

If IsNumeric(Combobox1.Text)=True Then
    AxWindowsMediaPlayer1.URL = "C:\SMD\Music\title" + Combobox1.Text +".mp3"
End if

Falls eine 1 ausgelassen werden soll, einfach vorher mit If abfangen/abfragen.

 

[Lucifer[93]]

So, das geht soweit, danke. (Lösung von InkognitoGER)

Und jetzt noch (stell mich gerade sehr dumm an oder steh aufm Schlauch) die Option, den Titel der dann dort erscheint in der playlist mit Doppelklick abzuspielen, hab schon so ne grobe Ahnung, aber die ist so grob das die nicht funktioniert/Dienst verweigert.

 

[Housechen]

Das zu handelnde Event lautet...
Listbox_MouseDoubleClick
Alles andere sollte durch Logik und Google erklärbar sein, etwas musst du ja auch noch machen.

 

[Lucifer[93]]

Ach stimmt, MouseDoubleKlick, ich hatte immer ListBox1.DoubleKlick, dann ist klar warum es nicht ging.

Ja, den Rest hab ich jetzt auch und es funktioniert einwandfrei, dankeschön