Discussion :

[eliot.raymond]

Bonsoir a tous, forum bonsoir

Je souhaiterai svp utiliser le lecteur WMP et je voudrais pouvoir effectuer deux manipulations

(1) Positionner sur l'écran la ou je le souhaite
(2) Agrandir plus ou moins l'écran selon mon besoin
(3) Voir insérer le lecteur dans une USF si c'est plus facile

Coder en vba les dimensions ces trois possibilités Left Top Height Width

J'ai bien lu sur le site divers infos sur le WMP mais pas sur la façon de positionner

Merci a vous pour votre aide et savoir partager.

Cordialement Raymond

[unparia]

Bonjour
Une réponse (la mienne) bien que je considère que telle n'est pas la vocation d'un tableur (ce qu'est Excel) :
l'objet dont il s'agit a des propriétés, parmi lesquelles des propriétés de positionnement et de dimensions.
Montre-nous comment tu as au moins tenté de les utiliser.

[patricktoulon]

Bonsoir
en fait tout depend de quoi tu parle
du composant MP dans les controls suplementaires ou de l'application WMP ce n'est pas la meme chose
pour l'un il a déjà ces propriétés donc ca c'est régle


mais si c'est pour l'application WMP il va te falloir utiliser les apis

en l'occurrence ici pour les apis se sera findwindow et setwindowsposition


les déclarations :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                 ByVal lpClassName As String, _
                  ByVal lpWindowName As String) As Long
 
 
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" ( _
                 ByVal hwnd As Long, _
                  ByVal hWndInsertAfter As Long, _
                  ByVal x As Long, _
                  ByVal y As Long, _
                  ByVal cx As Long, _
                  ByVal cy As Long, _
                  ByVal wFlags As Long) As Long

fit une recherche la dessus et après on verra
mettre "ptrsafe"devant "Function" pour les office version 64 bytes

[eliot.raymond]

Bonjour a tous,

Merci de vos réponses, je ne souhaite pas du compliqué, le plus simple m'irai bien..

Dans ma liste de la colonne (A) je sélectionne une vidéo par un DoubleClic qui lance le petit code ci-dessous

Ca fonctionne très bien sauf que lecteur s'affiche un peu trop petit, il me faut donc l'ouvrir manuellement a chaque fois
et par la même occasion, je voudrais bien pouvoir placer le lecteur la ou je le souhaite.

Si on peut éviter l'usine a gaz alors tant mieux.

Pour infos je suis sous Windows 7 - 32 bits Excel 2007

Merci a vous pour votre aide et bonnes fêtes de fin d'année a tous.

Cordialement Raymond

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'### SELECTION D'UN FILM DANS LA LISTE EN DOUBLE-CLIC VERS LECTEUR WINDOWS MEDIA PLAYER
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          Dim Chemin As String, Film As String
 
    If Not Intersect(Target, Range("A1:A" & [A4000].End(xlUp).Row)) Is Nothing Then
           Cancel = True
           Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 4   
           Chemin = "H:\": Film = Target & ".avi"       'Chemin Film et Avi
 
           UserForm1.Label91 = Target                   'Affiche le titre du film a visionner
    End If
           Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Film, vbMaximizedFocus
End Sub

[eliot.raymond]

Bonjour a tous,

Bon je n'ai pas avancer, c'est un peu compliquer pour moi, tant pis, ça restera comme ça.

Cdlt Raymond

[patricktoulon]

Bonjour
je t'ai donné la solution ,faut il encore faire quelques efforts

tu utilise les deux apis que je t'ai donné + 3 ou 4 lignes de code et c'est bouclé

si tu veux pas t'investir personne le fera pour toi

[eliot.raymond]

Salut Patrick,

Merci pour ta réponse, bon la on n'ai mal barrer
j'ai a peine un micro de tes connaissances.

l'âge commence a faire défaut et les neurones ont
du mal a suivre.

Non plus, une question de temps, vu que
je passe de longues heures sur mon PC.

Ce n'ai pas grave, bonne journée.

Cdlt Ray

[patricktoulon]

re
j'ai oublié hier de te donner un exemple avec un controle WMP dans un userform avec ou sans api
regarde le code du module de la feuille
j'ai aussi ajouté en bonus les propriétés des fenêtres normales(boutons minimiser,maximiser,redimentionnement avec la souris par les bords ou les angles)

adapte les chemins
voila

[eliot.raymond]

Salut Patrick,

Merci a toi et merci également pour le fichier, ça fonctionne et je vais l'adapter a mon programme.

Franchement je n'aurais jamais su faire ce code que tu a réaliser, félicitations.

Tu me propose dans le code :

"'si je veux je le fait avec l'api comme je te l'ai dit"

Car là, c'est déjà très bien, mais si tu fait avec l'api ça sera quoi la différence et l'utilité.

En attendant encore merci et passe de bonnes fêtes de fin d'année.

Cdlt Raymond

[patricktoulon]

Bonjour
Il. Ny aura aucune difference c etait juste pour te montrer comment on utilise l api

Bon reveillon

[Docmarti]

Un excellent tutoriel sur WindowsMediaPlayer
Utiliser Windows Media Player en VB et VBA

[eliot.raymond]

Re salut Patrick,

Merci pour ta réponse.

Par contre je n'ai plus le bandeau des commandes qui s'affiche et disparait au bout
de quelques secondes.

Voir svp photo ci-jointe.

c'est possible de rétablir l'apparition automatique du bandeau ???

Merci a toi et bonne après midi.

Cdlt Raymond

[eliot.raymond]

Un excellent tutoriel sur WindowsMediaPlayer
Utiliser Windows Media Player en VB et VBA

Salut

Merci pour ta réponse, je connais bien les tutos et infos divers d'Excel de ce site
le plus difficile, c'est de comprendre car c'est pas toujours très clair pour les débutants
et d'en faire une bonne application.

c'est la que ca se gâtes, c'est toujours plus facile quand on connais bien son domaine
mais qui sait enfoncer un clou avec une banane.

Merci a toi bonnes fêtes a toi

Cdlt Ray

[Docmarti]

Pour jouer avec l'interface utilisateur (le bandeau)

tu modifies la propriete uiMode qui contient 4 options :"full" , "Mini" , "None" , "Invisible"

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
 WindowsMediaPlayer1.uiMode =  "full"
 
End Sub

[eliot.raymond]

Salut Docmarti,

Merci pour ce code c'est bon ca fonctionne et c'est bien pratique.

j'ai un userform1 ou j'ai divers controls

je souhaiterai ajouter un bouton avec lequel je pourrai commander l'affichage "uiMode"

même pendant la lecture d'un film.

cela m'évitera de rentrer dans le code pour modifier ce code que tu viens de passer.

comment je peux coder ca si c'est possible a partir donc de USF1 vers USF du WMP

Merci a toi et bonne soirée et bon réveillon

Cdlt Raymond

[Docmarti]

Le plus simple et le plus convivial : un bouton pour chaque option.

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 WindowsMediaPlayer1.uiMode = "Full"
End Sub
 
Private Sub CommandButton2_Click()
  WindowsMediaPlayer1.uiMode = "None"
End Sub

[eliot.raymond]

Salut Docmarti,

Merci pour ta réponse

je vais des essais.

Merci a toi passe une bonne journée de noël.

Cdlt Raymond

[eliot.raymond]

Salut Docmarti,

Voici mes essais, ca fonctionne bien, mais surement mieux a faire, pas mis "Invisible"
pas utile pour moi.

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
 
'### Pour avoir les états "Vrai Faux Null" propriété cocher "TripleState"
    'Full-Mini-None-Invisible
Private Sub CheckBox1_Change()
        Select Case CheckBox1.Value
               Case True: CheckBox1.Caption = "Full"             'Vrai
                           CheckBox1.BackColor = vbGreen
                             WindowsMediaPlayer1.uiMode = "Full"
                              Label1.Caption = "Mode FULL"
 
               Case False: CheckBox1.Caption = "Mini"            'Faux
                            CheckBox1.BackColor = vbRed
                             WindowsMediaPlayer1.uiMode = "Mini"
                              Label1.Caption = "Mode MINI"
 
               Case Else: CheckBox1.Caption = "None"              'Null
                           CheckBox1.BackColor = vbYellow
                            WindowsMediaPlayer1.uiMode = "None"
                             Label1.Caption = "Mode NONE"
            End Select
End Sub

Bonne journée de noël a tous

Cdlt Ray

[patricktoulon]

re
Bonjour
ouais si tu veux voila un model qui n'utilise aucun control pour modifier le uimode

un simple clic quelque part dans le player et ca te change le mode a chaque fois

et pour que ca fasse plus vrai que nature j'ai ajouté l'icône de Windows media Player dans la captions de l'userform

c'est beau non?