EXEMPLE DE L'UTILISATION DE MOUSE_EVENT
cs_Mémère
Messages postés
222
Date d'inscription
samedi 24 mars 2001
Statut
Membre
Dernière intervention
24 juin 2007
-
12 janv. 2003 à 18:40
PWM63 Messages postés 127 Date d'inscription lundi 11 octobre 2004 Statut Membre Dernière intervention 18 mai 2016 - 15 mai 2008 à 17:24
PWM63 Messages postés 127 Date d'inscription lundi 11 octobre 2004 Statut Membre Dernière intervention 18 mai 2016 - 15 mai 2008 à 17:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5630-exemple-de-l-utilisation-de-mouse-event
https://codes-sources.commentcamarche.net/source/5630-exemple-de-l-utilisation-de-mouse-event
15 mai 2008 à 17:24
Pour que cela puisse fonctionner sur toutes les résolutions, tu auras besoin d'utiliser :
screen.PrimaryScreen.WorkingArea
Au lieu de :
If IsNumeric(Me.Text1) = False
Tu peux mettre :
If Not IsNumeric(Me.Text1)
Pour que cela puisse fonctionner au delà de la minute :
Else
nb_secondes_écoulées = 0
nb_secondes_à_attendre=Text1.Text
Timer1.Interval = 1000 'On force le timer sur 1 seconde
Timer1.Enabled = True 'on active le timer
Text1.Text = "" 'on nettoit la textbox
End If
Private Sub Timer1_Timer()
Select Case Selection
Case 0
'ici on compte les secondes écoulées
nb_secondes_écoulées += 1if nb_secondes_écoulées >nb_secondes_à_attendre Then selection 1
Case 1
'ici on déclare la position du curseur sur le bouton démmarer
Au lieu de cliquer puis de relacher :
'on clique
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'on relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
Tu peux faire les 2 en même temps et si tu n'utilises pas la constante de déplacement de la souris, inutile de renseigner les dx et dy par des valeurs qui ne veulent plus rien dire sachant que même MOUSEEVENTF_ABSOLUTE devient inutile :
'on clique et on relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0)
Et +1 Mémère !
Et @Lavabo : A part l'API non déclaré ou les constantes non renseignées, je ne vois pas de pb.
15 mars 2007 à 16:40
voici le code en tuilisant l'API mouse event
If e.KeyCode = Keys.F10 Then
SetCursorPos(Label1.Location.X, Label1.Location.Y)
'Le bouton gauche de la souris s'enfonce
Beep()
mouse_event(MOUSEEVENTF_LEFTDOWN, Label1.Location.X, Label1.Location.Y, 0, 0)
'le bouton gauche de la souris se relache
mouse_event(MOUSEEVENTF_LEFTUP, Label1.Location.X, Label1.Location.Y, 0, 0)
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub
Le programme s'execute bien , je déplace le curseur mais rien à faire pour le faire cliquer.
Quelqu'un aurait une idée???
11 août 2004 à 18:06
24 févr. 2003 à 21:18
24 févr. 2003 à 21:06
24 févr. 2003 à 21:05
24 févr. 2003 à 21:04
23 févr. 2003 à 16:26
15 févr. 2003 à 20:35
23 janv. 2003 à 16:41
20 janv. 2003 à 18:43
18 janv. 2003 à 19:58
13 janv. 2003 à 18:37
Courage.
12 janv. 2003 à 18:40