C'est fort !
Merci pour l'astuce. Je n'y avais pas pensé.
Sven
-------------------------------
Réponse au message :
-------------------------------
Vi ya une autre astuce qui dans certain cas est pas trop mal surtout qu'avec celle là la tabulation est fonctionnelle dans la ritchtextbox:
Suffit de désactiver la tabstop et de les réactiver :)
Private Sub RichTextBox1_GotFocus()
On Error Resume Next
For Each ctl In Me.Controls
ctl.TabStop = False
Next
End Sub
Private Sub RichTextBox1_LostFocus()
On Error Resume Next
For Each ctl In Me.Controls
ctl.TabStop = True
Next
End Sub
WebMaster-------------------------------
Réponse au message :
-------------------------------
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é.
Sven