Discussion :

[yvetro]

bonjour,
je suis nouveau dans le forum des développeurs. J'ai déjà programmé en VB6 et mes programmes fonctionnent bien. J'aimerais pouvoir me déplacer d'un textbox à l'autre (ils sont nombreux et placer de haut en bas et de droite à gauche sur ma form (il s'agit d'un agenda).
Avec le code:

Code :

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

1
2
3
4
5
private Sub Form_keydown (keycode as integer, shift as integer)
If KeyCode = 40 Then 'touche fleche bas
SendKeys ("{tab}")
End If
end Sub

Avec ce code mon focus passe d'un contrôle à l'autre dans le sens forward (tabindex croissant). Existe- t-il un code pour faire passer le focus dans le sens invers (tabindex décroissant) en utilisant par exemple la touche flèche haut? Tant qu'à faire s'il existe du code pour utiliser les flèches droite et gauche pour envoyer le focus dans le meme sens, je suis preneur!
Merci d'avance et bonjour.

[ner0lph]

La touche « tabulation » (à gauche du « a ») permet de naviguer entre les différents éléments de l'interface graphique. Associée à la touche « Majuscule » (Maj ou Shift), la touche « tabulation » permet de changer de sens.
Et cela sans programmation.

[Najdar]

Bonjour yvetro,

Regarde l'aide de la fonction SendKeys pour envoyer [Shift] + [Tab] lorsque tu appui sur la flèche gauche.

Mais entre nous, cela n'est pas tout à fait dans le "standard windows".

[avigeilpro]

Pour faire ce genre de chose j'aurais opté pour des boites textes indexées et la fonction SetFocus. Maintenant tout dépend du contexte, si tu veux passer par les boutons ...

[sovo]

Existe- t-il un code pour faire passer le focus dans le sens invers (tabindex décroissant) en utilisant par exemple la touche flèche haut?

essay ceci

Code :

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

1
2
3
4
5
6
 
private Sub Form_keydown (keycode as integer, shift as integer)
If KeyCode = vbkeyup Then 'touche fleche bas
SendKeys ("{Shift +tab}")
End If
end Sub

[ThierryAIM]

Bonjour yvetro,

Regarde l'aide de la fonction SendKeys pour envoyer [Shift] + [Tab] lorsque tu appui sur la flèche gauche.

Mais entre nous, cela n'est pas tout à fait dans le "standard windows".

Je "plussoie" à 100%