Evb et GOTO

Signaler
Messages postés
5
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2010
-
Messages postés
5
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2010
-
Je teste evb et tente d' adapter mes prog VB6.
Je ne comprend pas le principe du GOTO avec evb. Voici le teste d'un goto qui refuse de fonctionner.

if resultat = 20 Then Goto fini
Label1.caption = " Le résultat n'est pas 20 "
fini:
Label1.caption= " Le résultat est correct "

end sub

Le message:
Compile error
Instruction attendue

Merci pour une réponse

2 réponses

Messages postés
37
Date d'inscription
lundi 20 septembre 2004
Statut
Membre
Dernière intervention
3 avril 2009

Bonjour,
Pas de GOTO sous EVB. Il faut ruser...
Dans le cas cité bien sûr :
if  resultat = 20 Then
Label1.caption= " Le résultat est correct "
else
Label1.caption = " Le résultat n'est pas 20 "
endif
Sinon, exécuter une proc puis exit sub etc...
Bon courage

patdan [:)]
Messages postés
5
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2010

Comme vous pouvez le constater, c'est avec un peu de retard que je vous remercie pour votre réponse. Je suis impardonnable.
J'ai bien exécuté comme vous m'avez dit et ça marche , merci.