Discussion :

[yop73]

Bonjour à tous,

Je cherche à utiliser (en vb2008) les flêches haut et bas pour passer de textbox en textbox dans un formulaire.
J'ai testé tout ce qui m'est passé sous la main, mais en vain.
Je bloque depuis quelques jours. Merci de votre aide. Yop73

[pacmann]

Salut !

Ce que je vais te proposer est un peu laid, mais ça marche :
Tu récupères l'évènement TextBoxN.KeyDown : on te passe un paramètre "e" qui désigne la touche appuyée. Tu fais le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
e.KeyCode = System.Windows.Forms.Keys.Down

Et tu fais TextBoxM.focus()

Il faut donc que tu fasses la même pour chaque textbox...
(remplacer down par up dans l'autre cas...)

C'est moche, hein ?

[Pol63]

y a deja un peu plus beau :
sur keydown tu donne le focus au control donc le tabindex = le tabindex de celui qui est sélectionné -1
et +1 sur keydown

donc ca fait une seule sub, abonnée à x évènements

ou alors pour voir pour faire un sendkeys Tab ou Shift+Tab, parce que je suis pas sur que le key du keydown est remplacable (et le keypress ne recoit pas les flèche ...)

[yop73]

Merci de vos réponses !!!

J'ai un petit problème néanmoins :

Private Sub NomTabAjout_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NomTabAjout.KeyPress


If e.KeyCode = System.Windows.Forms.Keys.Down Then PrenomTabAjout.Focus()


End Sub
Fait une erreur :
'KeyCode' n'est pas un membre de 'System.Windows.Forms.KeyPressEventArgs'

Ai-je fait une bétise ?

Merci

Yop73

[tomlev]

La signature de ton handler d'évènement ne correspond pas à celle du délégué KeyEventHandler... le 2eme paramètre devrait être de type KeyEventArgs, et non KeyPressEventArgs. KeyEventArgs contient bien la propriété KeyCode

[olsimare]

Bonjour.

Avec un KeyPreview sur la form et en gérant le Up and Down directement dans la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Class Form9
 
    Private Sub Form9_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Up Then
            Dim c As Control = Me.GetNextControl(Me.ActiveControl, False)
            If Not c Is Nothing Then
                c.Focus()
            End If
        End If
        If e.KeyCode = Keys.Down Then
            Dim c As Control = Me.GetNextControl(Me.ActiveControl, True)
            If Not c Is Nothing Then
                c.Focus()
            End If
        End If
    End Sub
End Class

Mais bon, c'est pas terrible comme méthode, le mieux serait de faire un textbox personnalisé qui gére le Up et Down comme Tab et Shift+Tab.
Car avec ça, tout les controls sont concernés (tu peux toujours limiter en fonction du type de Me.ActiveControl mais ça reste moyen).

EDIT :
Un control perso comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Class TUpDown
    Inherits TextBox
 
    Private Sub T_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Up Then
            Dim c As Control = Me.FindForm.GetNextControl(Me.FindForm.ActiveControl, False)
            If Not c Is Nothing Then
                c.Focus()
            End If
        End If
        If e.KeyCode = Keys.Down Then
            Dim c As Control = Me.FindForm.GetNextControl(Me.FindForm.ActiveControl, True)
            If Not c Is Nothing Then
                c.Focus()
            End If
        End If
    End Sub
 
End Class

Me semble plus approprié.

Reste plus qu'à l'utiliser en lieu et place du TextBox standard.

Cdt.