• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Dodawanie plików(muzycznych) do listbox jako plalisty VB.net i interaktywny pasek progresu muzyki

0 głosów
37 wizyt
pytanie zadane 18 listopada 2018 w Visual Basic przez Kolankob7 Nowicjusz (120 p.)

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ć

 

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

0 głosów
1 odpowiedź 177 wizyt
pytanie zadane 30 maja 2017 w Visual Basic przez Szymon Kołtonowski Nowicjusz (120 p.)
0 głosów
3 odpowiedzi 74 wizyt
0 głosów
1 odpowiedź 76 wizyt
pytanie zadane 26 listopada 2018 w Visual Basic przez zbigop_pl Nowicjusz (120 p.)
Porady nie od parady
Możesz ukryć, zamknąć lub zmodyfikować swoje pytanie, za pomocą przycisków znajdujących się pod nim. Nie krępuj się poprawić pochopnie opublikowanego pytania czy zamknąć go po uzyskaniu satysfakcjonującej odpowiedzi. Umożliwi to zachowanie porządku na forum.Przyciski pytania

62,257 zapytań

108,376 odpowiedzi

226,205 komentarzy

34,758 pasjonatów

Przeglądających: 271
Pasjonatów: 19 Gości: 252

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto dwie polecane książki warte uwagi. Pełną listę znajdziesz tutaj.

...