Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic EntréeTAB: question de débutant

EntréeTAB: question de débutant

2 réponses
Avatar
eric
Bonsoir =E0 vous tous,
Comment simuler la frappe de la touche TAB en appuyant sur=20
la touche ENTREE pour sortir d'un champ de saisie.=20
J'ai essay=E9 ce bout de code mais sans succ=E8s:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =3D 13 Then
KeyAscii =3D 9
End If
End Sub

Remarque: L'ordre des controles etant bon je ne voudrais=20
pas mettre des Controlx.SetFocus dans la proc

Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Essaye ceci :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'on simule la touche TAB
Call SendKeys("{TAB}", True)

'on vide le buffer des touches
'pour eviter le beep du txtbox
KeyAscii = 0
End If
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"eric" a écrit dans le message de
news: eab301c3f0ca$cb1de560$
Bonsoir à vous tous,
Comment simuler la frappe de la touche TAB en appuyant sur
la touche ENTREE pour sortir d'un champ de saisie.
J'ai essayé ce bout de code mais sans succès:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 9
End If
End Sub

Remarque: L'ordre des controles etant bon je ne voudrais
pas mettre des Controlx.SetFocus dans la proc

Merci d'avance
Avatar
Bonsoir,

Merci de ta réponse,v tester ca. J'y avais pas pensé une
minute alors que j'utilise le SendKeys "{F4}" sur toutes
mes combo.

A+

-----Message d'origine-----
Salut,

Essaye ceci :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'on simule la touche TAB
Call SendKeys("{TAB}", True)

'on vide le buffer des touches
'pour eviter le beep du txtbox
KeyAscii = 0
End If
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"eric" a écrit dans


le message de
news: eab301c3f0ca$cb1de560$
Bonsoir à vous tous,
Comment simuler la frappe de la touche TAB en appuyant sur
la touche ENTREE pour sortir d'un champ de saisie.
J'ai essayé ce bout de code mais sans succès:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 9
End If
End Sub

Remarque: L'ordre des controles etant bon je ne voudrais
pas mettre des Controlx.SetFocus dans la proc

Merci d'avance


.