Naviguer entre les textboxesRésolu

Question

Salut,
Je suis d&#233;butant en visual basic, et je cherche une implimentation, ou une fonction me permettant de naviguer entre les textboxes d'une feuille en cliquant sur la touche ENTRER, mer&#231;i.

PCPT · Accepted Answer

salut

test avec 4 textbox par d&#233;faut, VB6 :

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode vbKeyReturn Then KeyCode 0: SendKeys ("{TAB}")
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode vbKeyReturn Then KeyCode 0: SendKeys ("{TAB}")
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode vbKeyReturn Then KeyCode 0: SendKeys ("{TAB}")
End Sub
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode vbKeyReturn Then KeyCode 0: SendKeys ("{TAB}")
End Sub

PCPT

cs_Jack · Answer

Salut
... la touche Entrer dans une TextBox ?
Suffit d'ajouter un code du genre vv dans le monTextBox_KeyPress

    If KeyAscii = vbkeyEnter Then
        monTextBoxSuivant.SetFocus
        KeyAscii = 0    ' pour &#233;viter le beep
    End If

Attention : La technique du SetFocus ne fonctionne QUE si le controle auquel tu veux passer est visible (au sens VB), sinon erreur.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_alasomed · Answer

Salut,
je te remercie de ta r&#233;ponse, cela fonctionne &#224; merveille, malgr&#233; qu'il est un peu genant d'ecrire ce code &#224;  l'ev&#233;nement KEYDOWN de chaque textboxe en supposant que la feuille  en poss&#233;de beaucoup.
Salut.

PCPT · Answer

salut
il te suffit d'indexer les TextBox qui n&#233;cessitent cette fonctionnalit&#233;

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)    If KeyCode vbKeyReturn Then KeyCode 0: SendKeys ("{TAB}")
End Sub

PCPT

Naviguer entre les textboxes

4 réponses

Discussions similaires