Mam problem z kodem na dodanie plików muzycznych do listbox a potem odczytywanie ich przy pomocy windowsmediaplayer jako playlisty.
Jak mi się udaje zeby nie było pełnej lokalizacji pliku pokazanej (drugi listbox i "kopiowanie" tej samej wybranej opcji) to wtedy za każdym razem dodawało do tego drugiego listbox piosenki.
albo jak się uda żeby wczytywało muzyke i miało tylko nazwe pliku to mogę wybrać tylko jeden plik naraz i idzię prosto do playera i wtedy zczytywane jest url i dodawane do listboxów. ale to jest uciążliwe bo trzeba za każdym razem dobierać i to zajmuje czas
narazie jestem na poziomie gdzie mogę dodać ile piosenek ile chce naraz i mam pełną lokalizacje pliku ale magicznym spoosobem nie chce jej wczytać w windowsmediaplayer.URL
problem 2 pasek progressu muzyki który rusza się w raz kiedy piosenka i można go przesuwać
i tu albo mogę nim poruszać ale nie porusza się sam wraz z piosenką jak jest otwarzania
albo jak jest teraz zmienia się wraz piosenką ale nie mogę nim poruszać
kod playlista
Dim songs As New List(Of String)
Private Sub btn_import_Click(sender As Object, e As EventArgs) Handles btn_addtoplaylist.Click
On Error Resume Next
Dim openfile As New OpenFileDialog
openfile.Multiselect = True
openfile.Title = "Add Music Files"
openfile.Filter = "Mp3 Files |*.mp3"
openfile.FileName = ""
openfile.ShowDialog()
For Each track As String In openfile.FileNames
songs.Add(track)
listbox_playlist.Items.Add(track)
Next
End Sub
Private Sub Listbox_playlist_DoubleClick(sender As Object, e As EventArgs)
WMP.URL = songs(listbox_playlist.SelectedIndex)
End Sub
Private Sub listbox_playlist_SelectedIndexChanged(sender As Object, e As EventArgs)
listbox_path.SelectedIndex = listbox_playlist.SelectedIndex
End Sub
kod pasek progresu
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
btn_musicbar.Value = WMP.Ctlcontrols.currentPosition
btn_musicbar.Text = btn_musicbar.Value
End Sub
Private Sub btn_musicbar_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn_musicbar.MouseUp
WMP.Ctlcontrols.currentPosition = btn_musicbar.Value
Timer1.Enabled = True
End Sub
Private Sub btn_musicbar_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn_musicbar.MouseDown
Timer1.Enabled = False
End Sub
problem 2 pasek progressu muzyki który rusza się w raz kiedy piosenka i można go przesuwać
i tu albo mogę nim poruszać ale nie porusza się sam wraz z piosenką jak jest otwarzania
albo jak jest teraz zmienia się wraz piosenką ale nie mogę nim poruszać