vb2008 fleches haut et bas

Version imprimable

17/04/2008, 14h08
yop73

vb2008 fleches haut et bas

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
17/04/2008, 14h29
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:

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 ?
:P
17/04/2008, 14h46
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 ...)
18/04/2008, 14h05
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
18/04/2008, 14h43
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

Bonjour.

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

Code:

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:

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.

18/04/2008, 15h52
tomlev

Pratique le GetNextControl, je connaissais pas...
18/04/2008, 15h56
olsimare

Re.

Je repost car Tom a été trop rapide et que j'ai éditer le post précédent :lol: !

Donc cf post précédent.

Cdt.