OVH Cloud OVH Cloud

Touche TAB

3 réponses
Avatar
Jean Saint Jalmes
Bonjour,

Dans une feuille VB6.0, j'ai plusieurs contr=F4les (dont un=20
RichTextBox) qui peuvent tous re=E7evoir le focus.

Lorsque le focus est sur le RichTextBox et que=20
l'utilisateur appuie sur la touche TAB, le focus passe au=20
contr=F4le suivant et la tabulation n'est pas prise en=20
compte dans le RichTextBox.

Existe t'il une autre touche (ou combinaison de touches)=20
qui permet d'ins=E9rer une tabulation dans un contr=F4le=20
RichTextBox ?=20

Sinon, puisque je peux pi=E9ger la touche TAB, est'il=20
possible d'ins=E9rer une tabulation par programme ?

Merci d'avance.

Jean

3 réponses

Avatar
Eric
"Jean Saint Jalmes" écrivait
news:192ea01c44c78$b8be1cf0$:

Bonjour,

Dans une feuille VB6.0, j'ai plusieurs contrôles (dont un
RichTextBox) qui peuvent tous reçevoir le focus.

Lorsque le focus est sur le RichTextBox et que
l'utilisateur appuie sur la touche TAB, le focus passe au
contrôle suivant et la tabulation n'est pas prise en
compte dans le RichTextBox.

Existe t'il une autre touche (ou combinaison de touches)
qui permet d'insérer une tabulation dans un contrôle
RichTextBox ?

Sinon, puisque je peux piéger la touche TAB, est'il
possible d'insérer une tabulation par programme ?

Merci d'avance.

Jean




Bonjour,

As-tu essayé Ctrl+Tab ? Ca devrait te permettre de mettre une tabulation
dans le controle RichTextBox.

A+
Eric
Avatar
Merci, ça marche bien avec Ctrl + TAB

-----Message d'origine-----
Bonjour,

Dans une feuille VB6.0, j'ai plusieurs contrôles (dont un
RichTextBox) qui peuvent tous reçevoir le focus.

Lorsque le focus est sur le RichTextBox et que
l'utilisateur appuie sur la touche TAB, le focus passe au
contrôle suivant et la tabulation n'est pas prise en
compte dans le RichTextBox.

Existe t'il une autre touche (ou combinaison de touches)
qui permet d'insérer une tabulation dans un contrôle
RichTextBox ?

Sinon, puisque je peux piéger la touche TAB, est'il
possible d'insérer une tabulation par programme ?

Merci d'avance.

Jean
.



Avatar
christian
Ou alors tu piège le TAB en ecrivant ceci :

Private Sub rtfbox_GotFocus()

On Error Resume Next

For Each Control In Controls
Control.TabStop = False
Next Control

End Sub

Private Sub rtfbox_LostFocus()

On Error Resume Next

For Each Control In Controls
Control.TabStop = True
Next Control

End Sub


voilà, cela évite à l'utilisateur de se mélanger les
crayons ...

A+