Dorgendubal
Messages postés66Date d'inscriptionvendredi 3 mai 2002StatutMembreDernière intervention11 juillet 2002
-
7 mai 2002 à 12:24
Dorgendubal
Messages postés66Date d'inscriptionvendredi 3 mai 2002StatutMembreDernière intervention11 juillet 2002
-
7 mai 2002 à 17:15
Pour tous ceux qui, comme moi, ont cherché comment éviter de perdre le Focus lorsque l'on presse TAB dans une TextBox, voilà la solution que j'ai trouvé :
Private tabPressed As Boolean
...
Private Sub Text_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab Then
Text.SelText = " "
Text.SetFocus
tabPressed = True
End If
End Sub
Private Sub Text_ LostFocus ()
If tabPressed Then
tabPressed = False
Text.SetFocus
End If
End Sub
-----------
Text est le nom de ma TextBox (pas original)
tabPressed une variable (Boolean) utilisée dans les 2 procédures.
Dans mon exemple, la touche tab ajoute 3x le caractère espace pour simuler une Tabulation.
-----------
Voilà. Si qqun a une meilleure méthode, je suis intéressé.