Gestion d'erreur avancee
Description
Ce code n'est pas vraiment de moi.
J'ai simplement extrait le nécessaire du logiciel PDFCreator, traduit en français et amélioré un peu l'indentation. Mais je n'ai rien touché au code lui même (sauf pour l'envoi d'email mais ce n'est pas grand chose et l'ancien code est en commentaire)
Il permet d'offrir une gestion plus avancée des erreurs sous VB avec :
- Affichage d'un message d'erreur
- Identification du module et de la procédure dont provient le bug.
- Repère également la ligne d'où provient le bug, si les lignes sont numérotées.
- Possibilité d'enregistrer, imprimer, envoyé par email un rapport d'erreur (version Windows,module,procédure,date...)
- Choix de l'utilisateur d'Ignorer l'erreur, Recommencer l'opération, Annuler l'opération, Fermer le programme
L'interface n'est pas vraiment à mon goût mais j'ai voulu laissé tel quel. Chacun fera ce qu'il souhaite.
!!!!!!!!!!!
!ATTENTION
!!!!!!!!!!!
Pour des raisons de licence, j'ai du supprimer le contenu du module de récupération de la version de Windows.
Vous devez récupérer ce code sur la page suivante :
http://vbnet.mvps.org/index.html?code/system/getversionex.htm
Désolé pour le désagrément.
J'ai simplement extrait le nécessaire du logiciel PDFCreator, traduit en français et amélioré un peu l'indentation. Mais je n'ai rien touché au code lui même (sauf pour l'envoi d'email mais ce n'est pas grand chose et l'ancien code est en commentaire)
Il permet d'offrir une gestion plus avancée des erreurs sous VB avec :
- Affichage d'un message d'erreur
- Identification du module et de la procédure dont provient le bug.
- Repère également la ligne d'où provient le bug, si les lignes sont numérotées.
- Possibilité d'enregistrer, imprimer, envoyé par email un rapport d'erreur (version Windows,module,procédure,date...)
- Choix de l'utilisateur d'Ignorer l'erreur, Recommencer l'opération, Annuler l'opération, Fermer le programme
L'interface n'est pas vraiment à mon goût mais j'ai voulu laissé tel quel. Chacun fera ce qu'il souhaite.
Source / Exemple :
'A METTRE EN DEBUT DE CHAQUE PROCEDURE
On Error GoTo ErrPtnr_OnError
'PUIS METTRE LE CODE DE TRAITEMENT
'A METTRE EN FIN DE CHAQUE PROCEDURE
Exit Sub
ErrPtnr_OnError:
Select Case ErrPtnr.OnError("frmMain", "Command1")
Case 0: Resume
Case 1: Resume Next
Case 2: Exit Sub
Case 3: End
End Select
Conclusion :
!!!!!!!!!!!
!ATTENTION
!!!!!!!!!!!
Pour des raisons de licence, j'ai du supprimer le contenu du module de récupération de la version de Windows.
Vous devez récupérer ce code sur la page suivante :
http://vbnet.mvps.org/index.html?code/system/getversionex.htm
Désolé pour le désagrément.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.