OVH Cloud OVH Cloud

fin de vidéo

3 réponses
Avatar
DAN
bonjour a tous.

dans mon projet je visualise des vidéos avec média player.
je ne sais pas coment détecter la fin de la vidéo pour enchainer sur la
vidéo suivante ou revenir a mon menu principal.
pouvez vous me renseigner?
d'avance merci

3 réponses

Avatar
François Picalausa
Bonjour/soir,

Jette un oeil à l'événement PlaySateChange du contrôle:
http://msdn.microsoft.com/library/en-us/wmplay/mmp_sdk/playerplaystatechange.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"DAN" a écrit dans le message de
news:3f3f9cec$0$9624$
bonjour a tous.

dans mon projet je visualise des vidéos avec média player.
je ne sais pas coment détecter la fin de la vidéo pour enchainer sur
la vidéo suivante ou revenir a mon menu principal.
pouvez vous me renseigner?
d'avance merci


Avatar
DAN
bonjour.
Merci de la réponse.
Je ne suis pas très bon en anglais mais il me semble que le lien que tu m'as
indiqué concerne les événements suite à un clique sur suivant, pose ou
autre.
De mon côté je cherche simplement à détecter la fin de la vidéo pour revenir
automatiquement au menu principal ou à la vidéo suivante sans aucune
intervention manuelle.
As-tu une solution ?
d'avance je te remercie.
Dan

"François Picalausa" a écrit dans le message de news:
#ECf$
Bonjour/soir,

Jette un oeil à l'événement PlaySateChange du contrôle:



http://msdn.microsoft.com/library/en-us/wmplay/mmp_sdk/playerplaystatechange.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"DAN" a écrit dans le message de
news:3f3f9cec$0$9624$
> bonjour a tous.
>
> dans mon projet je visualise des vidéos avec média player.
> je ne sais pas coment détecter la fin de la vidéo pour enchainer sur
> la vidéo suivante ou revenir a mon menu principal.
> pouvez vous me renseigner?
> d'avance merci




Avatar
François Picalausa
Bonjour/soir,

Cet événement se produit en cas de changement de playState qui lui même est
changé en cas de fin de video.
Voici un exemple d'utilisation:

Private Sub Form_Load()
'Pour qu'il n'y ait plus d'interface et qu'on ne puisse clicker sur stop
WindowsMediaPlayer1.uiMode = "none"
'Ici, j'emploie un fichier son mais ça devrait être la même procédure
' pour une video
WindowsMediaPlayer1.URL = "C:WindowsMediaonestop.mid"
End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
Select Case NewState
Case 1
MsgBox "The End"
End Select
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"DAN" a écrit dans le message de
news:3f410a41$0$9625$

je cherche simplement à détecter la fin de la vidéo pour
revenir automatiquement au menu principal ou à la vidéo suivante sans
aucune intervention manuelle.

"François Picalausa" a écrit dans le message de
news: #ECf$
Bonjour/soir,

Jette un oeil à l'événement PlaySateChange du contrôle:






http://msdn.microsoft.com/library/en-us/wmplay/mmp_sdk/playerplaystatechange.asp

"DAN" a écrit dans le message de
news:3f3f9cec$0$9624$
coment détecter la fin de la vidéo