Error Lister est un programme qui liste les erreurs système et celle de l'application. Il affiche :
-Le N° de l'erreur
-Sa description
-Son Message
Il permet d'enregistrer cette liste sous un fichier Texte et permet de rechercher une erreur en fonction de son numéro.
Source / Exemple :
'Vous pouvez intégrer cette application à votre programme pour
'lister les erreurs spéciales.
'Pour cela, intégrez "FrmMain.vb" et "WaitForm.vb" dans votre appli
'et faites afficher FrmMain
'
'Le reste est dans le zip.
Public Sub List()
'Affiche WaitForm (une petite progressbar pour faire patienter l'utilisateur
WaitForm.Show()
'Nettoie MainListView (affiche les erreurs)
MainListView.Items.Clear()
'En cas d'erreur
Try
'Détecte si l'appli doit lister les erreurs définies par l'utilisateur
If CheckBox1.Checked Then
WaitForm.ProgressBar1.Maximum = 511
Else
WaitForm.ProgressBar1.Maximum = 85
End If
'Boucle
Dim i As Integer 'Variable de boucle
For i = 1 To 512
Try
'Génére l'erreur
Err.Raise(i)
Catch ex As Exception
'Récupère l'erreur
'Ajoute les erreurs définies par l'utilisateur
If CheckBox1.Checked Then
Dim NewItem As New ListViewItem 'Nouveau listviewitem
NewItem.Text = Err.Number 'N° de l'erreur
NewItem.SubItems.Add(Err.Description) 'Description
NewItem.SubItems.Add(ex.Message) 'Message
MainListView.Items.Add(NewItem) 'Ajoute à MainListView
Else 'N'ajoute pas les erreur définies par l'utilisateur
If Err.Description <> UserDefinedError Then
Dim NewItem As New ListViewItem 'Nouveau listviewitem
NewItem.Text = Err.Number 'N° de l'erreur
NewItem.SubItems.Add(Err.Description) 'Description
NewItem.SubItems.Add(ex.Message) 'Message
MainListView.Items.Add(NewItem) 'Ajoute à MainListView
End If
End If
'Incrémente WaitForm.ProgressBar1.Value
WaitForm.ProgressBar1.PerformStep()
End Try
Next
'C'est fini
MsgBox("Collecte de la liste des erreurs terminée." & Chr(13) & "Nombre d'erreurs : " & MainListView.Items.Count, MsgBoxStyle.Information)
'Réinitialise WaitForm.ProgressBar1.Value
WaitForm.Close()
Catch ex As Exception
MsgBox("Erreur lors de la collecte de la liste des erreurs.", MsgBoxStyle.Critical)
End Try
End Sub
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.