Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 23/11/2010, 15h12   #1
Membre Expert
 
Inscription : avril 2006
Messages : 1 338
Détails du profil
Informations personnelles :
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations forums :
Inscription : avril 2006
Messages : 1 338
Points : 1 315
Points : 1 315
Par défaut [AC-2003] Accès à méthode Play d'un object MediaPlayer

Bonjour!
J'ai un problème sur un formulaire composé d'un Objet Active X (class mediaPlayer), d'un bouton et d'un champ texte (lui on s'en fou pas mal )

J'ai cet évènement sur clic du bouton :

Code :
1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande97_Click()
 
Me!WindowsMediaPlayer0.URL = "C:\PeopleNeedLove.wma"
'lecture
Me!Texte4 = "hello"
Me!WindowsMediaPlayer0.Controls.Play
Me!WindowsMediaPlayer0!Controls.currentPosition = 180
 
End Sub
A l'execution, on me renvoie une erreur 438, qui me dis que la methode Play n'est pas géré par l'objet.
J'ai implémenté les blibliothèques suivantes :
C:\WINNT\system32\wmp.dll
C:\WINNT\system32\msdxm.ocx
C:\WINNT\system32\wmpdxm.dll
C:\WINNT\system32\wmpshell.dll

D'après la doc que j'ai pu trouvé, Play fait bien partie de MediaPlayer.Controls...

Quelqu'un aurait déja rencontré ce problème, ou a défault, quelqu'un aurait t'il une idée de la marche à suivre pour essayer de le résoudre??
Merci bcp!
__________________
Stay in Bed .. Save Energy
boo64 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/11/2010, 15h37   #2
Membre Expert
 
Inscription : avril 2006
Messages : 1 050
Détails du profil
Informations forums :
Inscription : avril 2006
Messages : 1 050
Points : 1 230
Points : 1 230
Bonjour,
WindowsMediaPlayer0 c'est le contrôle ActiveX dans lequel se trouve l'interface WindowsMediaPlayer. Il faut ajouter .Object pour accèder à cette interface de cette manière :

Code :
 WindowsMediaPlayer0.Object.Controls.Play
tu peux aussi utiliser un objet supplémentaire pour gérer le player

Code :
1
2
3
4
5
6
7
8
9
 Private withEvents MyPlayer As WindowsMediaPlayer
Private Sub Form_Load()
 Set MyPlayer=WindowsMediaPlayer0.Object
End sub
 
Private  Sub Commande97_Click()
 MyPlayer.URL="....."
 MyPlayer.Controls.Play
End sub
ilank est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 23/11/2010, 16h45   #3
Membre Expert
 
Inscription : avril 2006
Messages : 1 338
Détails du profil
Informations personnelles :
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations forums :
Inscription : avril 2006
Messages : 1 338
Points : 1 315
Points : 1 315
Ca marche, merci beaucoup!!!
__________________
Stay in Bed .. Save Energy
boo64 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h55.


 
 
 
 
Partenaires

Hébergement Web