OVH Cloud OVH Cloud

Simuler le clic gauche

6 réponses
Avatar
Claude cinéphile
Dans une macro que doit-on coder pour simuler le clic gauche qui permettrait
de faire passer une fenêtre dans la barre des tâches ? NB : je ne suis pas
encore assez costaud en VBA.
Merci beaucoup.

6 réponses

Avatar
ze Titi
Salut Claude cinéphile !

J'ai un Access en anglais qui me dit "Minimize" ce qui doit
correspondre à "Réduire" (ou éventuellement "Minimiser").

Voilou !

En ce jour exceptionnel du mardi 06/02/2007, tu nous as très
généreusement gratifié du message suivant:

Dans une macro que doit-on coder pour simuler le clic gauche qui permettrait
de faire passer une fenêtre dans la barre des tâches ? NB : je ne suis pas
encore assez costaud en VBA.
Merci beaucoup.


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
Claude cinéphile

J'ai un Access en anglais qui me dit "Minimize" ce qui doit
correspondre à "Réduire" (ou éventuellement "Minimiser").


Claude cinéphile répond :

Bonjour !

J'ai essayé le truc (que j'avais déja essayé avant, mais sait-on jamais ?)

Résultat : je "minimize" le formulaire principal alors que je souhaite
réduire la fenêtre de l'application secondaire que j'appelle (par exemple un
lecteur Audio ).
Actuellement, un simple clic suffit n'importe où sur le formulaire
principal. C'est ce clic que je voudrais simuler dans la macro qui lance
ladite application secondaire.

Merci quand même.

Avatar
ze Titi
Et que fais-tu sur ce clic ?

En ce jour exceptionnel du mercredi 07/02/2007, tu nous as très
généreusement gratifié du message suivant:



J'ai un Access en anglais qui me dit "Minimize" ce qui doit
correspondre à "Réduire" (ou éventuellement "Minimiser").


Claude cinéphile répond :

Bonjour !

J'ai essayé le truc (que j'avais déja essayé avant, mais sait-on jamais ?)

Résultat : je "minimize" le formulaire principal alors que je souhaite
réduire la fenêtre de l'application secondaire que j'appelle (par exemple un
lecteur Audio ).
Actuellement, un simple clic suffit n'importe où sur le formulaire
principal. C'est ce clic que je voudrais simuler dans la macro qui lance
ladite application secondaire.

Merci quand même.


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info


Avatar
Claude cinéphile

Et que fais-tu sur ce clic ?



Claude cinéphile précise :
J'ai un formulaire de visualisation de tous les éléments d'un film (date,
réalisateur, acteurs, synopsis, genre, quelques images et pour certains la
musique du film).
Si je veux écouter la musique, je clique sur une icône. Si c'est un ficher
Wav, pas de problème la musique démarre et rien ne s'affiche. Si c'est un
fichier audio Windows Media, le programme qui lit la musique -Mplayer par
exemple- s'affiche sur mon formulaire et il faut cliquer pour le faire passer
dans la barre des tâches.
Je lance la musique par une macro et je voudrai aussi lui faire simuler un
cli (Sendkeys ou équivalent) pour que la fenêtre de Mplayer aille directement
dans la barre des tâches.

Ouf ! J'ai terminé. C'est un problème d'ergonomie pas trop vital
mais je suis perfectionniste. Merci pour l'interêt que tu portes à ma petite
personne.
Bonne nuit (il est 0h23).

Avatar
ze Titi
Colle ceci dans un module:

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_RESTORE = 9
Public Const SW_MINIMIZE = 6

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Public Declare Function SetFocusAPI Lib "user32" Alias
"SetForegroundWindow" (ByVal hwnd As Long) As Long

Sub minimiserApplicationActive(aName as String)
Dim hwndPrev
hwndPrev = FindWindow(vbNullString, aName
If hwndPrev <> 0 Then ' si instance trouvée
Call ShowWindow(hwndPrev, SW_MINIMIZE)
End If
End Sub

Et tu appelles la fonction avec la syntaxe

Call minimiserApplicationActive("la fenêtre")

Je ne sais pas ce que ça peut donner, à tester donc...

En ce jour exceptionnel du jeudi 08/02/2007, tu nous as très
généreusement gratifié du message suivant:



Et que fais-tu sur ce clic ?



Claude cinéphile précise :
J'ai un formulaire de visualisation de tous les éléments d'un film (date,
réalisateur, acteurs, synopsis, genre, quelques images et pour certains la
musique du film).
Si je veux écouter la musique, je clique sur une icône. Si c'est un ficher
Wav, pas de problème la musique démarre et rien ne s'affiche. Si c'est un
fichier audio Windows Media, le programme qui lit la musique -Mplayer par
exemple- s'affiche sur mon formulaire et il faut cliquer pour le faire passer
dans la barre des tâches.
Je lance la musique par une macro et je voudrai aussi lui faire simuler un
cli (Sendkeys ou équivalent) pour que la fenêtre de Mplayer aille directement
dans la barre des tâches.

Ouf ! J'ai terminé. C'est un problème d'ergonomie pas trop vital
mais je suis perfectionniste. Merci pour l'interêt que tu portes à ma petite
personne.
Bonne nuit (il est 0h23).


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info


Avatar
Claude cinéphile
Bonjour Titi,
J'ai bien enregistré tes suggestions et je tâcherai de les mettre en
pratique quand j'aurai appris la programmation, car pour le moment, je
fonctionne uniquement par macro, ce qui peut expliquer que certains de mes
problèmes ne puissent être résolus simplement.

En tout cas, un grand merci.


Colle ceci dans un module:

Public Const SW_HIDE = 0 etc.....