GESTIONNAIRE D'ERREUR CRITIQUE EN DOTNET
cs_TheHacker
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005
-
12 déc. 2002 à 12:52
ronanry Messages postés 190 Date d'inscription lundi 25 novembre 2002 Statut Membre Dernière intervention 22 décembre 2009 - 12 déc. 2002 à 19:49
ronanry Messages postés 190 Date d'inscription lundi 25 novembre 2002 Statut Membre Dernière intervention 22 décembre 2009 - 12 déc. 2002 à 19:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4455-gestionnaire-d-erreur-critique-en-dotnet
https://codes-sources.commentcamarche.net/source/4455-gestionnaire-d-erreur-critique-en-dotnet
12 déc. 2002 à 19:49
faites un copier/coller et vous verrez que la fenetre ne s'ouvre meme pas
12 déc. 2002 à 19:47
alors du coup je reposte le tout...
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer
Dim b As Integer = 0
Try
a = 1 / b
Catch
showerreur()
End Try
End Sub
Public Sub showerreur()
Dim a As Integer
If Err.number <> 0 Then
a = MsgBox("Veuillez me contactez au xx xx xx xx xx" & vbCrLf & "Erreur " & Str(Err.number) & " générée par " & Err.source & vbCrLf & Err.description, MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Erreur Critique")
Else
a = MsgBox("Veuillez contactez ALSIOPE au 04 68 92 62 56" & vbCrLf & "Une erreur est survenue", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Erreur critique")
End If
System.Windows.Forms.Application.Exit()
End Sub
12 déc. 2002 à 13:16
Enfin je suis pas un pro des erreurs donc je sais pas trop...
12 déc. 2002 à 12:52