Gestion d'erreur sur VB6

Résolu
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010 - 31 oct. 2009 à 13:04
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010 - 1 nov. 2009 à 19:04
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

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
31 oct. 2009 à 17:27
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)
3
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010
1 nov. 2009 à 19:04
merci l'ami;
j'ai testé et ça marche.
0