Fonction toute simple mais trés efficasse.
Placer un control qui a l'event "KeyDown" sur une form, par exemple un bouton.
Source / Exemple :
'event KeyDown du controle (appel de la fonction):
sender.location = sourisoclavier(e, sender.location)
'The fonction :
Public Function sourisoclavier(ByVal e As System.Windows.Forms.KeyEventArgs, ByVal sourispos As Point)
Dim deplace As Point
Select Case (e.KeyCode)
Case Keys.NumPad1
deplace = New Point(sourispos.X - 1, sourispos.Y + 1)
Case Keys.NumPad2
deplace = New Point(sourispos.X, sourispos.Y + 1)
Case Keys.NumPad3
deplace = New Point(sourispos.X + 1, sourispos.Y + 1)
Case Keys.NumPad4
deplace = New Point(sourispos.X - 1, sourispos.Y)
Case Keys.NumPad6
deplace = New Point(sourispos.X + 1, sourispos.Y)
Case Keys.NumPad7
deplace = New Point(sourispos.X - 1, sourispos.Y - 1)
Case Keys.NumPad8
deplace = New Point(sourispos.X, sourispos.Y - 1)
Case Keys.NumPad9
deplace = New Point(sourispos.X + 1, sourispos.Y - 1)
End Select
Return deplace
End Function
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.