Discussion :

[laterite]

J'utilise une Form (classique) et des Textbox : pour vérifier les saisies, les Private Sub TextBox_Exit(Cancel), ou Private SUb TextBox_AfterUpdate() sont utilisées.
Dans certains cas, la routine de vérification appelée par la Sub événementielle a besoin de conserver le curseur (focus) dans la même TextBox. J'ai trouvé qu'en positionnant le paramètre Cancel de la Sub TextBox_Exit(Cancel), le curseur reste dans ce même textbox.
Dans d'autres cas, il faudrait positionner ce maudit focus dans une autre TextBox, et là pas moyen : quand on utilise la méthode Setfocus appliquée au nom de la textbox où l'on veut la positionner
[ex : Controls("TextBox" & i).setfocus] , ça ne fonctionne pas et deplus les routines événementielles sont appelées dans tous les sens.
Quelqu'nn sait-il faire ça ?
Merci par avance

[jmfmarques]

Si Text1.setfocus ne donne pas le focus à Text1, c'est probablement que tu as installé ici et là des instructions de changement de focus en conflit (du genre je donne le focus à text1 et dans son événement change je lui quitte le focus)

[laterite]

Posons le PB autrement !
Soient TextBox1, 2 et 3 , et les Private Sub TextBox1_Exit (Cancel), 2 et 3

Au moment où on quitte la TextBox2, la Sub TextBox2_Exit est exécutée.
Si cette routine rencontre une certaine erreur de Saisie alors
TextBox2.value=""
Cancel=true
' et le curseur reste sur cette même textbox

Dans un autre cas, il faut le repositionner sur la TextBox1
TextBox2.value=""
TextBox1.setfocus
'Et là, patakès : TextBox2_Exit est re-appelée au moment du SetFocus, ce qui peut sembler normal, se déroule, puis reprend sont cours après l'instruction SetFocus, ce qui provoque l'appel de TextBox1_Exit ! Le Patakès je vous dis, et pas moyen de positionner sur TextBox1 !

Que faudrait-il faire ?

[jmfmarques]

tout celà me parait ,ormal puisque le exit intervient également lorsque tu envoies le focus ailleurs

pourquoi ne pas ajouter dans le code à exécuter dans text2_exit une toute petite 1ère instruction du genre :

Code :

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

if textbox2.value = "" then exit sub

?

[méphistopheles]

une solution simple.
déclare au niveau général :

Code :

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

 dim changement as booléan

tu met ensuite dans ton cancel:

Code :

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

1
2
3
 private Sub TextBox_Exit(Cancel as integer)
if not changement then textbox.setfocus
end sub

ensuite, quand tu veux changer le focus:

Code :

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

1
2
3
changement=true
autretextbox.setfocus
changement=false

salut

[laterite]

Bjr,

J'ai déjà tenté des manips du genre, mais je vais creuser en tenant compte de ta proposition ...

Ce qui m'étonne : que ce pb ne soit pas hyper bien connu et documenté, car quand on développe le moindre interface à base de saisie dans des TextBox, le pb se pose tout le temps !!

Mais il est vrai que si on gère les vérifs des saisies par un bouton, on n'a pas tous ces pb : la routine de vérif se déclenche qd on clique sur le bouton, et les setfocus fonctionnent ...

Je vous tiens au courant

[laterite]

J'ai trouvé une soluce, mais c'est drôlement vicieux ! Je tiens le code à la disposition de ceux que ça pourrait interesser

Merci pour les suggestions

[ouskel'n'or]

Pour changer le focus, tu dois mettre "Cancel = True" avant de faire "MonContrôle.setfocus"

C'est tout

A+

[zazaraignée]

Salut

La stratégie de vérification des champs lors de la sortie du champ n'est pas la plus efficace parce qu'elle entre en conflit direct avec les autres événements d'entrée de focus (GotFocus) et de sortie de focus (LostFocus). À moins d'avoir des astuces bien tordues dans sa manches.

Essaie plutôt la vérification lors de la saisie. Par exemple pour les champs numériques tu transformes tous les caractères qui ne sont pas des chiffres en caractères zéro (chr(0)). Pour les vérifications plus complexes tu passes en revue tous les champs qui doivent absolument être validés et non vides dans une fonction de validation sur l'événement gotFocus du bouton de validation.

C'est la stratégie la plus simple à programmer, à mon avis du moins.

[ouskel'n'or]

Zaza a bien sûr raison. Salut zaza !
Je répondais au sujet, pas au contexte...

A+

[laterite]

Salut et merci de vos avis éclairés

Je vais essayer le conseil de Ouskel'n'or ...

Pour zazaraignée : c'est vrai que c'est plus simple de faire les vérifs globalement après saisie, mais je profite de ce petit développement pour affiner ma pratique du VB et des routines événementielles dans une Form ...
Et puis, c'est tellement plus interactif, quand ça marche !

@+ et merci
FB

[zazaraignée]

Houah! Des heures de plaisir, quoi!

Bonne prog!

[laterite]

:resolu:
:wink:

Bon, ça marche, pas exactement comme a dit Ouskel'n'or, mais enfin ça marche !
Ouf, quelle galère

Merci en tous cas