VBKEYTAB ne marche pas

Bonjour,

dans mon précédent post je cherchais à boucler une action.
Tout fonctionne à ceci près que la touche VBKEYTAB ne marche pas sur mon projet.

J'ai essayé "If KeyCode = vbkeytab" cela ne fonctionne pas mais cela fonctionne avec n'importe quelle autre touche ex : VBKEYA ou VBKEYP...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If KeyCode = vbkeytab then Dim Condition2 As Integer For T = 1 To 5 Condition2 = VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero" & T)) If NUMERO = T And Condition2 = T Then NUMERO = T + 1 If NUMERO = 6 Then NUMERO = 1 Exit Sub End If Next T End If

---

Faut il faire quelque chose en particulier pour activer la touche TAB dans un projet ?
Merci

Salut

De mémoire, il faut passer par l'évènement KeyDown et non KeyPress pour détecter les touches non imprimables, et interroger KeyCode.
De plus tu peux faire un MsgBox KeyCode au moment de l’appui sur la touche Tab pour voir si sa valeur correspond bien à la constante VB6 vbKeyTab.

Par défaut le Tab est utilisé pour passer le focus au contrôle suivant sur la forme.

Mettez la propriété TabKeyBehavior du contrôle en question à True pour pouvoir taper les tabs.

Merci @Wheel mais je n'utilise pas une form ou un champ TXT et par conséquent je ne peux pas basculer sur True.

@Progelect merci, y'a t'il un tutoriel ou exemple car je n'ai pas tout compris :oops:

Merci

Re,

j'ai passé la journée à fouiller le NET et j'en arrive à ce code :

Code:

---

1 2 3 4

Option Explicit Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Public Const VK_TAB = &H9

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If ConOff = True Then Exit Sub If ConOff2 = True Then Exit Sub Call CheckInput(1, KeyCode, Shift)   If GetAsyncKeyState(VK_TAB) <> 0 Then MsgBox "TEST" End If     On Error Resume Next End Sub

---

De ce fait lorsque j'appuie sur la touche TABULATION puis n'importe qu'elle autre touche cela m'affiche bien le message "TEST".

Sauf que ce que je cherche à faire c'est afficher le message "TEST" lorsque j'appuie sur le touche TABULATION.

Je précise que je n'ai aucune TEXTBox et que je veux que cela s'execute depuis ma FORM.

Quelqu'un a une idée ? :bug:

Salut

Il faut mettre la propriété KeyPreview du Form à True de façon à que l'évènement survienne au niveau du formulaire avant tout autres contrôles.
vbKeyTab = 9, il n'est pas à redéclarer, il fait parti des constantes de VB6.

Si tu fait MsgBox KeyCode dans la procédure Form_KeyDown(KeyCode As Integer, Shift As Integer), pour la mise au point, cela devrait t'afficher 9 pour la touche Tab

Re Progelect,

KeyPreview est bien sur TRUE.
Voici le code modifié :

Code:

---

1 2	Option Explicit Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If ConOff = True Then Exit Sub If ConOff2 = True Then Exit Sub Call CheckInput(1, KeyCode, Shift)   MsgBox KEYCODE     On Error Resume Next End Sub

---

Lorsque j'appuie sur une touche cela m'affiche le numéro de la touche.
Mais lorsque j'appuie sur TABULATION ça ne fonctionne pas.

:koi::koi::koi::koi::koi:

De plus il me semble que je suis obligé de déclarer VK_TAB c'est une clé virtuel non ?
Sans quoi la touch TAB n'est pas utilisable.

Je bloque :aie:

Salut

Ce matin j'ai remis un ordinateur qui à VB6 d’installé.
Sur un Form 2 Labels, 1 TextBox et 1 bouton et ...... ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Private Sub Form_Load() Form1.KeyPreview = True Label1.Top = 180: Label2.Top = 540 Label1.Left = 180: Label2.Left = 180 Label1.Height = 315: Label2.Height = 315 Label1.Width = 1215: Label2.Width = 1215 Label1.Caption = "KeyCode = ": Label2.Caption = "Shift = " End Sub   Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = "KeyCode = " & KeyCode Label2.Caption = "Shift = " & Shift End Sub

---

Tout fonctionne.