Déplacer la souris par clavier

Soyez le premier à donner votre avis sur cette source.

Vue 16 413 fois - Téléchargée 1 641 fois


Description

Il suffit de la déplacer avec les touches du clavier (haut, bas, gauche, droite).
Code pas trop difficile à comprendre.

Source / Exemple :


trop de code, télécharger le ZIP

Conclusion :


Assez Facile à faire

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Je sais, cette source est vieille ...

Elle est pas trop mal mais:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Right Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X + 10, Windows.Forms.Cursor.Position.Y)
End If
If e.KeyCode = Keys.Left Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X - 10, Windows.Forms.Cursor.Position.Y)
End If
If e.KeyCode = Keys.Down Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y + 10)
End If
If e.KeyCode = Keys.Up Then
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y - 10)
End If
If e.KeyCode <> Keys.Right And e.KeyCode <> Keys.Left And e.KeyCode <> Keys.Down And e.KeyCode <> Keys.Up Or e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub

Comme ça, plus besoin de label ni de timer ...

A+
Messages postés
121
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
14 mars 2009
1
Sinon j'ai écrit un autre code qui marche également, même si il ne gère le déplacement que dans une direction à la fois :
Const d As System.Int32 = 8
Private Sub appui_sur_touche(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyValue()
Case 37
System.Windows.Forms.Cursor.Position() = New System.Drawing.Point(System.Windows.Forms.Cursor.Position().X() - d, System.Windows.Forms.Cursor.Position().Y())
Case 38
System.Windows.Forms.Cursor.Position() = New System.Drawing.Point(System.Windows.Forms.Cursor.Position().X(), System.Windows.Forms.Cursor.Position().Y() - d)
Case 39
System.Windows.Forms.Cursor.Position() = New System.Drawing.Point(System.Windows.Forms.Cursor.Position().X() + d, System.Windows.Forms.Cursor.Position().Y())
Case 40
System.Windows.Forms.Cursor.Position() = New System.Drawing.Point(System.Windows.Forms.Cursor.Position().X(),System.Windows.Forms.Cursor.Position().Y() + d)
End Select
End Sub
Messages postés
276
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
22 décembre 2008

Oui, bien sur ;)
N'empeche que c'est une solution simple pour par exemple mettre la souris sur le controle de ton choix...
Ou encore empecher la souris de sortir d'un bouton
...
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
12
chez moi ca se plante, en plus votre téchnique seras uniltile hors votre application parceque le KeyDown est un évenement propore à votre application c'est pourquoi jt ai deja dit faire un hook globale est la parafite solution pour faire ce genre de programme
Messages postés
276
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
22 décembre 2008

Ma technique ne bloque pas l'utilisation "normale" de la souris ;)
Par contre, en effet, il faudrait detecter les touches du clavier autrement que par Form.OnKeyDown, mais ca se trouve ;)
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.