Activex Windows Media Player

**FabienN** · 25/05/2006, 18h29

Salut à tous.
Voila mon problème.
J'ai inséré un ActiveX WindowsMediaPlayer dans un formulaire, et je voudrai savoir quelles sont les fonctions qui permettent de mettre le lecteur sur pause, stop, repeat.
J'ai cherché dans le forum, la FAQ, et les codes sources mais je n'ai rien trouvé qui parle de cela.

Merci à tous.

**Faw** · 26/05/2006, 03h42

Salut, ce lien pourrait éventuellement t'aider
http://www.developpez.net/forums/sho...ighlight=media

**SfJ5Rpw8** · 26/05/2006, 08h35

essai (avec WMP1 ton contrôle WindowsMediaPlayer :
pause

Code :

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

1
2
 
wmp1.controls.pause

stop

Code :

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

1
2
 
wmp1.controls.stop

Bon pour le repeat .. j'ai pas trouvé d'options.. on peu peu-être utiliser les événements ainis avec un checkbox : chbRepeat

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
 
Private Sub WMP1_PlayStateChange(ByVal NewState As Long)
 Static bReplay As Boolean
 Select Case NewState
    Case wmppsMediaEnded
       bReplay = chbRepeat
    Case wmppsStopped
        If bReplay Then WMP1.Controls.Play
    Case wmppsTransitioning
      'onFait rien lol..
    Case Else
    Debug.Print "NewState : " & NewState
       bReplay = False
    End Select
 End Sub

**FabienN** · 26/05/2006, 10h39

Merci beaucoup.

je vais tester tout ça. Et je vous tiens au courant

**FabienN** · 26/05/2006, 11h38

Envoyé par Faw

Salut, ce lien pourrait éventuellement t'aider
http://www.developpez.net/forums/sho...ighlight=media

Effectivement j'ai vu ce lien.

Mais je n'arrive pas à utiliser les fonctions.

**SfJ5Rpw8** · 26/05/2006, 12h02

Envoyé par FabienN

Effectivement j'ai vu ce lien.

Mais je n'arrive pas à utiliser les fonctions.

tu en est ou finalement ? tu arrive à lire video puis pause.....

**FabienN** · 26/05/2006, 13h16

Envoyé par bbil

tu en est ou finalement ? tu arrive à lire video puis pause.....

En fet c'est pour lire une musique.
J'arrive à charger une musique dans le player

Code :

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

WindowsMediaPlayer4.URL = CurrentProject.Path & "\Musiques\Intro courte.mp3"

Mais après c'est tout. Je n'arrive pas à faire pause ni stop ni quoi que ce soit.
Dans l'explorateur d'objet je vois bien les classes avec les méthodes et les propriétés mais je n'arrive pas à les utilisers.

**SfJ5Rpw8** · 26/05/2006, 13h24

et tu as lu ce que j'ai écrit plus haut...?

remplace WMP1 par
WindowsMediaPlayer4 (ou renomme ton contrôle )

Code :

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

1
2
 
WindowsMediaPlayer4.controls.pause

**FabienN** · 26/05/2006, 21h56

Envoyé par bbil

et tu as lu ce que j'ai écrit plus haut...?

remplace WMP1 par
WindowsMediaPlayer4 (ou renomme ton contrôle )

Code :

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

1
2
 
WindowsMediaPlayer4.controls.pause

Oui bien sur que j'ai fait ça. Mais ça ne fonctionne pas.

**SfJ5Rpw8** · 26/05/2006, 21h58

Envoyé par FabienN

Oui bien sur que j'ai fait ça. Mais ça ne fonctionne pas.

tu peu être plus clair ...? la video et lue ? et la pause ne marche pas c'est cela ?

**FabienN** · 26/05/2006, 22h11

Je reprend. Déja ce n'est pas une vidéo que je veut lire, c'est une musique MP3.
Quand j'ouvre mon formulaire je veut qu'une musique se lance donc j'ai mis ce code. Cela fonctionne parfaitement.

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
    WMP1.URL = CurrentProject.Path & "\Musiques\Intro courte.mp3"
End Sub

Et c'est la que ça se complique. Je veut ajouter quelques bouton pour pouvoir controler le lecteur. Exemple : pause, stop, monter volume, etc
Mais le code que tu ma donné pour mettre le lecteur en pause ne fonctionne pas.

**SfJ5Rpw8** · 26/05/2006, 23h09

Envoyé par FabienN

Et c'est la que ça se complique. Je veut ajouter quelques bouton pour pouvoir controler le lecteur. Exemple : pause, stop, monter volume, etc
Mais le code que tu ma donné pour mettre le lecteur en pause ne fonctionne

ben moi mes 2 boutons :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton2_Click()
WMP1.Controls.pause
End Sub
Private Sub CommandButton1_Click()
 WMP1.Controls.Play
  End Sub

fonctionne... bon j'ai pas access 2000 , donc j'ai fait le test sous Excel 2000 , avec windows media player 10..

tu as quoi comme version de logiciels..?

**FabienN** · 27/05/2006, 11h10

Effectivement je viens de tester sous Excel 2003 et ça fonctionne nickel.
Par contre sous Access

, ya rien qui marche et il me met une erreur.
Voir pièce jointe.

Je dispose de Access 2003 SP2. Et j'ai testé en convertisant ma base de données sur une base de données au format Access 2000 et sur le format Access2002-2003.

**SfJ5Rpw8** · 27/05/2006, 11h19

ne te serai tu pas tromper de contrôle ...? utlise le menu contextuel (bouton droi sur ta variable ... WindowsMe.. puis infos express...

**FabienN** · 27/05/2006, 11h36

Non je ne me trompe pas de controle.
C'est vraiment un truc de dingue.

Dans excel quand je commence à taper le code il me trouve la fonction pause, c'est à dire :

Code :

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

WMP.controls.pause

Alors que Access ne trouve pas la fonction pause ni meme les autres. C'est à dire quand je met WMP.controls, et bien après controls il me propose juste de mettre les propriétées count ou bien item

**Arkham46** · 27/05/2006, 21h43

slt,

Code :

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

WMP1.Object.controls.pause

WMP1 est le contrôle ActiveX (c'est juste un container)
WMP1.Object est l'objet OLE qui est dedans (donc le media player)

Pour la liste des méthodes et propriétés, voir l'explorateur d'objet (F2 dans l'éditeur VBA), dans la librairie WMPLib.

Il y a aussi de la doc (en anglais) sur http://msdn.microsoft.com/library/ (en espérant qu'il y ait de la doc en VB, c'est souvent du C...)

**FabienN** · 27/05/2006, 22h01

Envoyé par Arkham46

slt,

Code :

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

WMP1.Object.controls.pause

WMP1 est le contrôle ActiveX (c'est juste un container)
WMP1.Object est l'objet OLE qui est dedans (donc le media player)

Pour la liste des méthodes et propriétés, voir l'explorateur d'objet (F2 dans l'éditeur VBA), dans la librairie WMPLib.

Il y a aussi de la doc (en anglais) sur http://msdn.microsoft.com/library/ (en espérant qu'il y ait de la doc en VB, c'est souvent du C...)

Vraiment nickel.

Tout marche impécable et maintenant je sais me servir de l'explorateur d'objet.

Encore une fois, merci à tous pour votre aide.

Activex Windows Media Player

Access

Discussions similaires

Partager

Partager