Discussion :

[vb6.beginner]

je laisse un petit message car j'ai un petit problème avec le composant
windowsmediaplayer sous vb6.
Je souhaiterais faire ceci:

1-afficher une vidéo en plein écran (j'y arrive mais avec quelques problèmes)
2-que la vidéo se coupe lors d'un clic souris et effectue une action précise.
(Par exemple, démarrer mon logiciel avec une vidéo et en cas de clic afficher le menu)
3-que la vidéo se coupe si l'utilisateur appuye sur une touche (espace ou échap par exemple)
4-afficher la vidéo dans un cadre dans une form, que la vidéo change d'après le bouton appuyé par l'utilisateur (par ex avoir un cadre vidéo, 3 boutons, que la vidéo affichée change d'après le bouton appuyé par l'utilisateur)
5- je souhaiterais mettre une musique de fond via mediaplayer sans que l'utilisateur puisse interagir dessus (sauf en configurant pas de musique dans un menu que j'aurais placé une bonne fois pour toutes).

Si quelqu'un pouvait m'aider là-dessus ce serait cool.

[jmfmarques]

Voir ton autre sujet (et les règles de ce forum)...

Ta question doit porter sur un seul point précis et bien isolé et être accompagnée du code que tu as commencé à écrire, en nous disant où il y a une erreur !

Donc : question par question et chaque question devant porter sur un point d'application bien isolé !

[vb6.beginner]

dit autrement:
comment se sert-on de windowsmediaplayer sous VB6 et comment fait-on pour faire interagir windowsmediaplayer avec le reste du programme (réaction au clic où à l'appui sur une touche)

voici un essai que j'ai fait (qui fait purement et simplement planter VB6):

Private Sub movietry_playStateChange(ByVal NewState As Long)
If movietry.Status = "Arrêté" Then movietry.Close
Unload Me
End Sub

comme je ne sais absolument pas me servir de windowsmediaplayer sous VB6 ben je vous apelle à l'aide car j'ai trouvé nulle part comment on s'en sert.

[jmfmarques]

Là...
Commence par lire au moins ton aide en ligne et l'exemple d'utilisation de MMcontrol....
Passe au moins ce stade là avant de continuer !

[sovo]

avec l'aide en ligne je croit que tu devrais avoir plus d'info sur ce control mais qu'a cela ne tienne voila quelques reponse a tes PB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'WMP est mon control windows Media Player
 
 
' pour : 1-afficher une vidéo en plein écran
WMP.FullScreen=true
 
'pour : 2-que la vidéo se coupe
WMP.controls.stop
 
'ce qui peut t'aider pour les autres questions
'pour lancer un media
WMP.controls.play
 
'pour mettre un media en pause
WMP.controls.pause
 
'pour passer au media suivant
WMP.controls.next
 
etc ...

j'espere que tout ceci te sera utile

[SilkyRoad]

bonsoir

ce ne serait pas le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Me

qui fait planter ?


peux tu refaire un simple essai en enlevant cette ligne , afin de valider ce point



tu trouveras quelques infos sur Windows Media Player dans le fichier joint .
les exemples ont été testés en VBA(Excel) mais tu devrais pouvoir les adapter facilement


bonne soiree
michel

[vb6.beginner]

j'ai bien vu ton fichier d'explication merci.
je regarderais correctement plus tard.
Maintenant si quelqu'un a d'autres éléments à m'apporter pour finir d'éclaircir mon problème ce serait bien sympa.

[SilkyRoad]

bonjour

actuellement tu utilises

Private Sub movietry_playStateChange(ByVal NewState As Long)
If movietry.Status = "Arrêté" Then movietry.Close
Unload Me
End Sub

Ce qui signifie qu'à chaque changement de statut tu demande à la form de se fermer : Dès que tu veux démarrer une video...la form essaye de se fermer ...

comment se sert-on de windowsmediaplayer sous VB6 et comment fait-on pour faire interagir
windowsmediaplayer avec le reste du programme (réaction au clic où à l'appui sur une touche)

tu peux utiliser les evenements Click ou keyPress de Windows Media Player

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub MovieTry_Click(ByVal nButton As Integer, _
ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
'
MsgBox "test"
'
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub MovieTry_KeyPress(ByVal nKeyAscii As Integer)
'
MsgBox "test"
'
End Sub

Windows Media player doit etre en mode "Lecture en cours" pour afficher le plein écran

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub WMP_PlayStateChange(ByVal NewState As Long)
If WMP.Status = "Lecture en cours" Then WMP.fullScreen = True
End Sub

bon apres midi
michel