cs_xvirus
Messages postés2Date d'inscriptionmercredi 22 décembre 2004StatutMembreDernière intervention25 février 2007
-
25 févr. 2007 à 03:41
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 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
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 20091 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.
cs_pluplu
Messages postés615Date d'inscriptionmercredi 18 décembre 2002StatutMembreDerniè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