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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 697 fois - Téléchargée 28 fois

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

Ajouter un commentaire

Commentaires

surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
Merci, a l'epoque y avait pas les snipets, mais maintenant il y serais bien :D
slmnsnts
Messages postés
25
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
31 août 2007
-
bonne idée 2006 ;)

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.