Media player e

[eeyk]

Hoe Doe ik dat als media afgelopen is dat Die automatich nieuw Song laad uit

List1

ik probeer van alles niks werkt

 

[That Guy]

logisch nadenken:

1. Timer op je form
2. (in timer event) als de status van de player gelijk is aan einde file (dus stop - 1 ofzo?) DAN, dan moet je de nieuwe uit de listbox pakken


zoiets: (bull****_code - maar het gaat om het idee)

private sub timer1_timer()

if mediaplayer1.state = 1 then
  mediaplayer1.playfile = list1.list +1
end if

end sub

 

[eeyk]

hmm das veel Simple dan ik dacht,,

maar dit werkt niet op VB6

 

[That Guy]

zucht.

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
[COLOR="SeaGreen"]' eerst bekijken we de state.[/COLOR]
If NewState = 8 Then [COLOR="seagreen"]' 8 = klaar. De mp3/iets is afgelopen, dus we moeten een nieuwe laden:[/COLOR]
   WindowsMediaPlayer1.URL = "" [COLOR="seagreen"]'reset de player[/COLOR]
   WindowsMediaPlayer1.URL = list1.list(3)[COLOR="seagreen"] ' <--- maak hier de code voor je nieuwe-zoeken in de listbox[/COLOR]
   WindowsMediaPlayer1.Controls.play
end if
end sub

 

[eeyk]

Okal Zucht je


ERG bedankt voor je hulp


ENDIT:

alleen player.Controls.play

werkt niet je moet zelf op play drukken!..

 

[That Guy]

erhm, dan moet je even de opties van de player.controls bekijken, want als het goed is staat er iets van een .play optie bij. Anders is het mischien player.play ofzo? Anywho, je kan het ook weglaten als je niet wilt dat het autmatisch speelt.

probeer dus eens

player.play

of typ eens in je IDE

player.controls.

(zodat je dus een lijstje krigjtr met opties.

 

[eeyk]

player.controls.play

is wel goed maar hij speeld niet automatich aff

en als ik 9 lietjes toevoeg blijf die bij liet 3 haken die speeld die telkens op nieuw aff

 

[That Guy]

ja hehe, daarom stond er dit:

   WindowsMediaPlayer1.URL = list1.list(3) ' <--- maak hier de code voor je nieuwe-zoeken in de listbox

Je moet dus een code verzinnen die zoiets doet:

dim i as integer
i = getCurrentSongNumber + 1 [COLOR="SeaGreen"]'dit is dus het nummer dat je nu  hebt +1[/COLOR]
WindowsMediaPlayer1.URL = list1.list(i)

 

[eeyk]

ik heb nu dit en het werkt nog steeds niet


player = windowsmediaplayer

Private Sub player_PlayStateChange(ByVal NewState As Long)
' eerst bekijken we de state.
If NewState = 8 Then ' 8 = klaar. De mp3/iets is afgelopen, dus we moeten een nieuwe laden:
Dim i As Integer
   i = getCurrentSongNumber + 1 'dit is dus het nummer dat je nu  hebt +1
   player.URL = "" 'reset de player
   player.URL = List1.List(i)
   player.Controls.play
End If
End Sub

 

[That Guy]

Je moet dus een code verzinnen die zoiets doet:

dim i as integer
i = getCurrentSongNumber + 1 [COLOR="SeaGreen"]'dit is dus het nummer dat je nu  hebt +1[/COLOR]
WindowsMediaPlayer1.URL = list1.list(i)

dus, dat betekent dat die code niet werkt, maar dat het zo'n idee moet hebben.

Er is dus helemaal geen 'getCurrentSongNumber' functie, maar die zou je moeten schrijven.