dOsSpr0uTosS
Messages postés90Date d'inscriptiondimanche 22 mai 2005StatutMembreDernière intervention 1 janvier 2006
-
25 août 2005 à 22:32
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
26 août 2005 à 00:41
Salut,
Je sais que ce sujet a deja ete abordé mais j'ai fais plusieur recherche et je n'ai pas trouvé de réponses très claire...
Donc voila tout est dans le titre je voudrais savoir comment deplacer la souris.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 26 août 2005 à 00:41
j'avais bien compris.....
(si j'ai pas répondu, c'est simplement que si déjà, mon FormMouseMove t'est inconnu en VB2005, c'est pas des "vrais" codes sous VB6 qui vont t'aider. désolé)
PCPT
cs_hassen
Messages postés338Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention 4 novembre 2008 25 août 2005 à 22:35
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
Private Sub Command1_Click()
X = 30
Y = 755
'position de la souris au coordonnée X et Y
'(ici si vous êtes en 1024 x 768,cela va cliquer sur le bouton 'Démarrer' de la barre des taches)
SetCursorPos X, Y
'Le bouton gauche de la souris s'enfonce
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub
dOsSpr0uTosS
Messages postés90Date d'inscriptiondimanche 22 mai 2005StatutMembreDernière intervention 1 janvier 2006 25 août 2005 à 22:43
Merci mais il y a deux trois erreurs apparament sur ma version(je suis sur la beta 2005^^).Donc il me signale des erreurs a :
Private sub
X et Y
SetCursorPos(X, Y)
mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE
mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUT
Aux "me" et aux "Declare"
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 25 août 2005 à 23:16
ouai, c'est pas çà du tout même.
là il faut capturer le mouvement de la souris, ce qui empêchera le click.
mieux vaut mettre par exemple sur la Form Mouse mouve
si X < HorsDeMaZoneMinX et X > HorsDeMaZoneMaxX pareil avec Y, et là tu la bouges.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 25 août 2005 à 23:41
le MouseMove, sur la Form (espérant que çà existe, je suis sous VB6) renvoie les coordonnées de la souris.
donc dans le déplacement, tu peux très bien choisir une zone (genre entre 50<X<100 200<Y<400).
si la souris est dans cet équart, SetCurPos (outuveux)
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 25 août 2005 à 23:58
l'évènement Form_MouseMove( Button Shift X Y) existe sous VB6. je doute qu'il n'existe pas sous 2005, c'est sans doute la syntaxe qui doit légèrement changer.
sinon, même principe, un label transparent sans caption à l'endroit voulu, et si la souris le survol, blablabla...
dOsSpr0uTosS
Messages postés90Date d'inscriptiondimanche 22 mai 2005StatutMembreDernière intervention 1 janvier 2006 26 août 2005 à 00:31
Héhé pas mal mais par "Sinon autre question tu sais taper des touches du clavier?"j'te demandais si tu connaissais le code pour fair taper la touche n°31(par exemple).