Interception SUPPR & TAB

Bonjour à tous,

Je suis en train de coder une application de type DAO simplifiée : on manipule des objets qu'on peut sélectionner dans une picturebox. On peut les manipuler à la souris ou bien avec des entrées des valeurs dans des textbox qui changent en fonction de l'outil sélectionné (déplacer, tourner), les outils étant des optionbutton en mode graphique.

Je voudrais :
1 - que lorsque l'utilisateur appuie sur Suppr, les séquences sélectionnées soient supprimées (quel que soit l'outil en cours),
2 - que lorsque l'utilisateur appuie sur Tab, le focus passe sur le premier champ de saisie manuelle, puis sur le deuxième s'il y en a un, puis retour au premier, mais sans toucher les autres contrôles.

J'ai réussi à implémenter 1 sur Form_Keydown avec le Keypreview de la form à true, mais je cale sur le 2. Si je mets le Tabstop de tous les contrôles de la Form à false (sauf les textbox qui m'intéressent), ça marche au début, mais ensuite le focus passe par l'optionbutton enfoncé avant de revenir au premier textbox et c'est ce passage par l'optionbutton que je ne comprend pas.
Les optionbutton sont sur un onglet SSTab, serait-ce lié?

Voudriez-vous me suggérer une soluce pour m'en sortir?

Bien cordialement,
Renaud.

_ Ia ora na.
_ Une rustine (qui fonctionne chez moi) : placer dans la procédure LostFocus de votre dernière zone de texte :

Code:

---

ZoneDeTexte1.SetFocus

---

_ Simple rustine, parce qu'il faut alors cliquer deux fois sur une case d'option pour que le changement soit pris en compte.
_ Bonne semaine.

Bonjour,

Merci pour l'idée, mais ce n'est pas satisfaisant, ça intercepte les manips à la souris et ça va perturber l'utilisateur. Il faut trouver autre chose. :calim2:

Renaud.

Bonjour,

en faisant l'essai avec 3 bouton d'option appelés "Option1"et 3 zones de texte appelées "Text1", le code suivant semble fonctionner :

Code:

---

1 2 3 4 5 6 7

Private Sub Option1_GotFocus(Index As Integer) Text1(0).SetFocus End Sub   Private Sub Option1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Option1(Index).Value = True End Sub

---

Merci, ça fonctionne! :ccool: