Modifier position curseur

Question

Bonjour tout le monde,

me voilà de retour avec une nouvelle question ^^ en fait dans mon formulaire, j'utilise un label à qui j'assigne ce code :
    
Private Sub testmvt_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            lblRaquette.Left = e.X
End Sub

Le probleme c'est que si je déplace trop ma souris vers la droite, mon label va sortir du formulaire... c'est pourquoi j'aimerais pouvoir faire l'opération suivante :

If lblRaquette.Left + lblRaquette.Width > Me.Width Then
                'Je voudrais mettre la position horizontale de la souris en lblRaquette.Left
End IF

Pourriez vous donc m'indiquer comment modifier la position de la souris? Ou si vous voyez quelque chose de mieux, toutes suggestions sera la bienvenue 

Merci pour votre aide
Cordialement
Kevin PERRIAT

fsltp · Answer

recherche sur SetCursorPos 
API windows
je regarde si je trouve un exemple...

fsltp · Answer

ce code est de NIX :

http://www.vbfrance.fr/codes/POSITIONNER-SOURIS-ENDROIT-PRECIS-ECRAN_59.aspx


Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
' Puis utilisez ce code :
Dim Retour As Long
Retour = SetCursorPos( 10, 10)

Modifier position curseur

2 réponses

Votre réponse

Discussions similaires