RACOUCI CLAVIER

Question

BONJOUR UN PETIT PB J AIMERAIS REMPLIR UN FORMULAIR
AVEC DES TEXTBOX MAIS POUR PASSE DUN TEXTBOX A UN AUTRE IL FAUT LE FAIRE AVEC LA SOURIE VMAIS J AIMERAIS POUVOIR LE FAIRE PAR LE CLAVIER PAR LA TOUCHE ENTRE 
S POSSIBLE ET COMMENT FAIR MERCI

plaineR · Answer

1. en utilisant la touche tab tu peux directement aller au controle suivant

2. si veux utiliser la touche entree le plus simple est de creer un groupe de controles (à condition que tous tes objets soient les mêmes) pour lequel tu fais :

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  If KeyAscii = 13 Then
     If Index < Text1.UBound Then
        Text1(Index + 1).SetFocus
     Else
        Text1(Text1.LBound).SetFocus
     End If
  End If
End Sub

3. Sinon pour chacun de te des controles tu peux faire pour l'evenement keypress :
if keyascii = 13 then
   sendkeys "{tab}"
end if

Renfield · Answer

Tu peux aussi mettre la propriété KeyPreview de ta form a true, et utiliser le code suivant


Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendKeys "{TAB}"
    End If
End Sub


Ca fonctionnera pour tous tes controles, en ajoutant simplement ça  ;) 

A, aussi, si tu souhaites changer l'ordre dans lequel tu parcours tes controles, utilises leur propriété TabIndex...

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

RACOUCI CLAVIER

2 réponses

Discussions similaires