Gestion d'erreur sur VB6Résolu

Question

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

cs_Jack · Accepted Answer

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)

Manau81 · Answer

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

Gestion d'erreur sur VB6

2 réponses

Votre réponse

Discussions similaires