Gestion d'erreur sur VB6

[Résolu]
Signaler
Messages postés
23
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
17 janvier 2010
-
Messages postés
23
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
17 janvier 2010
-
Bonjour et merci d'avance ;
je veux contrôler une fonction avec un gestionnaire d'erreur de la forme
on error goto ERR_Msg
commande1
commande2
commandeN
...
ERR_Msg:
msgbox("erreur dans commande1")
msgbox("erreur dans commande2")
msgbox("erreur dans commandeN")
...
resumenext


Je sais que ce code est totalement faux, mais c'est simplement pour expliqué mes besoins.
Encore merci

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
Salut
Il existe une vieille technique issue du Basic (au sens IBM des années 80) qui consiste à numéroter les lignes du programme. Cela consiste simplement à mettre un chiffre suivi (au moins d'un espace) en début de ligne.
Dans ton cas, cela pourrait être une solution :
On Error Goto ERR_Msg
10 commande1
20 commande2
30 commandeN
...
Exit Function|Sub  ' à ne pas oublier
ERR_Msg:
Select Case Erl
  Case 10: msgbox("erreur dans commande1")
  Case 20: msgbox("erreur dans commande2")
  Case 30: msgbox("erreur dans commandeN")
  ...
End Select
Resume Next

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
23
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
17 janvier 2010

merci l'ami;
j'ai testé et ça marche.