Discussion :

[BernardMatthey]

Hello,
J'ai écris ce code, mais la touche de tabulation ne donne pas son caractère
ASCII 9 comme indiqué dans l'aide.
Quelqu'un pourrai m'aider sur ce point.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txtHoraire_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = vbTab Then
        If Len(txtHoraire(Index).Text) < 4 Then
            MsgBox LoadResString(L + 881), _
            vbOKOnly, LoadResString(L + 1)
            txtHoraire(Index).SetFocus
            'selectionne le premier caractère
            txtHoraire(Index).SelStart = 0
            'étend la selection jusqu'au dernier caractaire
            txtHoraire(Index).SelLength = Len(txtHoraire(Index).Text)
        End If
    End If
End Sub

[Balise [code] rajouté par DrQ]

[DrQ]

L'évènement n'est il pas d'abord capturé par ta Form ?

[bidou]

c'est normal. l'appuie sur la touche Tab donne le focus à l'objet suivant dans l'ordre des tabindex. Pour gérer cela il existe deux solutions.
Utiliser l'API GetKeyState dans l'évènement validate ou
Supprimer / activer les tabstop des autres controles sur les évènements du Focus. Le première méthode est plus simple.

[cafeine]

j'ajouterais que ce n'est pas VbTab mais VbKeyTab qu'il faut utiliser.

[BernardMatthey]

c'est normal. l'appuie sur la touche Tab donne le focus à l'objet suivant dans l'ordre des tabindex. Pour gérer cela il existe deux solutions.
Utiliser l'API GetKeyState dans l'évènement validate ou
Supprimer / activer les tabstop des autres controles sur les évènements du Focus. Le première méthode est plus simple.

Merci pour ton info, mais je ne suis pas assez doué pour comprendre ce que tu veux dire. Si tu m’expliques mieux, je comprendrai peut-être. Encore merci pour ta réponse.

Salutations de Bernard

[HCath]

Salut,

J'ai une solution un peu tordue à te suggérer mais elle marche :

Tu crées une PictureBox minuscule avec une propriété Visible = True pour qu'elle puisse recevoir le Focus. Tu lui donnes une propriété BackColor identique à celle de ta fenêtre pour qu'elle ne soit pas détectable et enfin tu lui attribues une valeur de TabIndex égale à celle de la TextBox + 1.

Il te suffit alors de placer ton code dans l'événement Got_Focus de cette PictureBox fantôme sans t'occuper de la détection de la touche Tab.

A+
HCath

[bidou]

Bon j'explique. Un appuie sur la touche TAB envoie le focus au contrôle ayant le tabindex directement supérieur. Pour pouvoir gérer la touche Tab dans un textbox tu peux soit :
- donner la valeur false à la propriété tabstop de tous les contrôles
- gérer le cas particulier de ton textbox (ce que nous allons voir).

Comme le contrôle ne prends pas d'évènement clavier sur un appui de la touche TAB il faut travailler sur l'évènement Validate.
Pour savoir si la touche TAB a été enfoncée, on utilise l'API KeyState.
Donc, dans ta feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
 
Private Sub Text1_Validate(Cancel As Boolean)
 
    If GetKeyState(vbKeyTab) < 0 Then
        Text1.Text = Text1.Text & vbTab
        Text1.SelStart = Len(Text1.Text)
        Cancel = True
    End If
 
End Sub

Ce qui en clair veut dire que si la touche TAB a été enfoncée, l'objet garde le focus et tu ajoutes le caractère Tab à la chaine.

voila

[BernardMatthey]

Bon j'explique. Un appuie sur la touche TAB envoie le focus au contrôle ayant le tabindex directement supérieur. Pour pouvoir gérer la touche Tab dans un textbox tu peux soit :
- donner la valeur false à la propriété tabstop de tous les contrôles
- gérer le cas particulier de ton textbox (ce que nous allons voir).

Comme le contrôle ne prends pas d'évènement clavier sur un appui de la touche TAB il faut travailler sur l'évènement Validate.
Pour savoir si la touche TAB a été enfoncée, on utilise l'API KeyState.
Donc, dans ta feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
 
Private Sub Text1_Validate(Cancel As Boolean)
 
    If GetKeyState(vbKeyTab) < 0 Then
        Text1.Text = Text1.Text & vbTab
        Text1.SelStart = Len(Text1.Text)
        Cancel = True
    End If
 
End Sub

Ce qui en clair veut dire que si la touche TAB a été enfoncée, l'objet garde le focus et tu ajoutes le caractère Tab à la chaine.

voila

Un grand merci pour ta solutionça fonctionne impecable.
Je te montre mo code définitif:
Private Sub txtHoraire_Validate(Index As Integer, Cancel As Boolean)
If GetKeyState(vbKeyTab) < 0 Then
txtHoraire(Index).Text = txtHoraire(Index).Text
MsgBox LoadResString(L + 881), _
vbOKOnly, LoadResString(L + 1)
'selectionne le premier caractère
'et étend la selection jusqu'au dernier caractaire
txtHoraire(Index).SelStart = 0
txtHoraire(Index).SelLength = Len(txtHoraire(Index).Text)
Cancel = True
End If
End Sub

Salutations de Bernard

[DrQ]

Pour mettre [Résolu] tu cliques sur le bouton Editer de ton premier message. Ensuite tu modifies le titre en rajoutant [Résolu] puis tu fais Envoyer.

Voilà

[BernardMatthey]

Pour mettre [Résolu] tu cliques sur le bouton Editer de ton premier message. Ensuite tu modifies le titre en rajoutant [Résolu] puis tu fais Envoyer.

Voilà

Merci, je le ferai la prochaine fois! C'est promis