Est-il possible de crée un click de la souris

Résolu
cs_xvirus
Messages postés
2
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
25 février 2007
- 25 févr. 2007 à 03:41
cavo789
Messages postés
168
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2009
- 26 févr. 2007 à 12:13
bonjour

est-ce que c'est possible avec un programme vb de crée un click de souris. je cherche un moyen de faire un click de la souris automatiquement à partir du programme

4 réponses

cavo789
Messages postés
168
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2009
1
26 févr. 2007 à 12:13
Bonjour

Veux-tu cliquer ou bien simuler une action type Enter ?   Ainsi, lorsque tu as une boite de message avec un bouton OK, tu peux cliquer sur le bouton ou bien, lorsque le bouton a le focus; simplement appuyer sur la touche Enter.

Le code ci-dessous simule l'appuie sur la touche Enter.

Première chose : déclare la fonction et les constantes ci-dessous

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long

Public Const WM_KEYDOWN = &H100
Public Const VK_RETURN = &HD

Ensuite utilise ce code

PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0&

où hwnd est assigné au handle de; par exemple, le bouton sur lequel tu veux cliquer.

Christophe
3
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
25 févr. 2007 à 04:18
Salut,

oui, c'est possible. Regarde du côté de l'API mouse_event, tu peux gérer le déplacement ainsi que les cliques !

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
0
cs_pluplu
Messages postés
615
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 juillet 2012

25 févr. 2007 à 10:08
Si c'est simuler un click de souris sur un contrôle qui gère cet événement, rien de plus simple
Cet exemple nécessite deux boutons sur une Form, MonBouton et Simulation lorsque l'on click sur Simulation il éxecute l'événement click du bouton MonBouton

Private Sub MonBouton_Click()
    MsgBox "Click détecté sur MonBouton
End Sub

Private Sub Simulation_Click()
    Call MonBouton_Click
End Sub

Pascal Laurençon
0
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
26 févr. 2007 à 11:30
Salut,

Voir aussi, quand dans ce cas tu déplaces ta souris sur le bouton de command1 :

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SimulClick
End Sub


Public Sub SimulClick()
MsgBox "Vous avez simulé un click du bouton Command1"
End Sub

A+
Exploreur
0