placer la sourisRésolu

Question

bonjour a tous les membres VBFRANCE    

Svp je veux savoir comment placer le curseur a une position (de la souris ) en connaissant les coordonnes de cette position

par exemle dans un (2) textbox j 'introduis le x et y et le curseur se deplace a cette position

et merci beaucoup

jmfmarques · Accepted Answer

Tu n'as toujours pas répondu !
l'origine, c'est bien, mais l'origine de quoi ?

De toutes manières :

tu as la fonction SetCursorPos de la librairie User32 de l'Api de Windows

jmfmarques · Answer

Bonjour,

Position par rapport à quoi très exactement ?

argentin7 · Answer

re bonjour jmfmarques (new look)

la position par rapport a l'origine
donc je parle effectivement de x et y

argentin7 · Answer

oui

l'origine du form
svp peux tu detailler plus car je n'ai pas eu l'occasion d'utiliser les API

PCPT · Answer

salut à tous,

voir ce tuto pour (entre autres) déplacer le curseur par l'API que jmfmarques t'a indiqué
http://www.vbfrance.com/codes/VACANCES-MR-MULOT-TUTORIAL_34236.aspx
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

argentin7 · Answer

merci PCPT

j'ai vu ton tuto (tres interessant)

j'ai fait la meme chose mais ca ne donne pas de bonne resultat

on fait moi je recupere mon x et y sont des single
et j'ai remarqué que ceux de setcursorpos sont des long 

est ce que cela va poser un probleme
si oui  y a t il un moyen de rendre un single un long

merci a vous tous

PCPT · Answer

tu as tous les exemples dans le tuto, je ne vois vraiment pas où est le problème, c'est presque juste du copier/coller

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

argentin7 · Answer

je vais t'expliquer exactement mon code

dans form_mousemove (x as single,y as single)
je dis lorsque x et y sont compris dans un certains intervalle

then
le curseur dois etre placer au centre (du rectangle)
sois 
setcursorpos Xmoitie,Ymoitie

Xmoitie et Ymoitie coordonnees du centre

le probleme que je rencontre est c est que le curseur ne se place pas a cette position (Xmoitie,Ymoitie)

merci

PCPT · Answer

regarde la partie concernant clienttoscreen

on ne déplace pas la souris sur le x y de ton rectangle (contrôle) mais dans un x y de l'écran, étant une position qui survole ton x y voulu

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

argentin7 · Answer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)'If etataccrochage True Then     
accrochage x, y, UBound(tabnoeud)  
End If

Private Function accrochage(x As Single, y As Single, nombre_denoeud As Integer)
For t = 0 To nombre_denoeud

If ((tabnoeud(t).x - x) ^ 2 + (tabnoeud(t).y - y) ^ 2) ^ (0.5) < 4 Then
x = tabnoeud(t).x
y = tabnoeud(t).y
Shpcircle.Top = y - Shpcircle.Height / 2
Shpcircle.Left = x - Shpcircle.Width / 2
Call SetCursorPos(x, y)
End If
Next
End Function

argentin7 · Answer

pardon je n'ai pas vu ta reponse

Placer la souris

11 réponses

Votre réponse

Discussions similaires