[VB6] Probleme avec "EXIT SUB"

Probleme avec "EXIT SUB" [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2006 à 10:12:05    

Bonjour,  
 
J'ai un petit probleme avec exit sub.  
En effet, sur un form je possede 2 text box et un boutton  
le but du bouton est de savoir si il y a ecrit le meme nombre dans les  
2 test box :  
 
 
if text1.text = text2.text then  
msgbox " vous avez ecris la meme valeur dans les 2 label box"  
text1.text = ""  
text2.text = ""  
exit sub  
endif  
 
 
Mon probleme est que une fois qu'il sort de l'évenements le bouton s  
grise et il est impossible de pouvoir le reutiliser.  
 
 
Je veux simplement savoir si il est possible de pouvoir sortir d'un sub  
tous simplement et ensuite pouvoir reutiliser le bouton!  
 
 
Merci  
 
 
Johnson

Reply

Marsh Posté le 30-06-2006 à 10:12:05   

Reply

Marsh Posté le 30-06-2006 à 10:47:44    


 
tu peux gérer un booléen d'erreur au lieu de faire un exit sub, lorsque les 2 valeurs sont les mêmes tu le mets à false, et tu ajoutes dans ta boucle de test le test de booléen...
les sorties "agressives" de routines, je les évite, car tu ne sauras pas à chaque fois à quel niveau de ton code ton programme s'est arrété. Privilégie une seule end sub, et code en fonction des booléens qui se servent de flags dans ton code.

Reply

Marsh Posté le 30-06-2006 à 11:07:04    

Salut Johnson
 
j'ai eu à peu près le même soucis, je l'ai résolu en utilisant des goto, à la place de exit sub tu mes un goto fin et tu place la référence fin juste avant le end sub.

Reply

Marsh Posté le 30-06-2006 à 11:08:19    

Merciiiiiiiiiiiii

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed