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

0/5 (2 avis)

Snippet vu 10 060 fois - Téléchargée 30 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 463 Date d'inscription vendredi 15 août 2003 Statut Membre Dernière intervention 21 avril 2010
3 août 2007 à 22:31
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
2 août 2007 à 16:18
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.