Deplacer un controle comme avec la souris mais avec le pavé numérique(vs2005)

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (surfzoid)