Comment lire la visionneuse d'événement dans vb.net

Instructions

1. Démarrez Microsoft Visual Basic Express et clic "Nouveau projet..." sur le volet de gauche de votre écran. Double-cliquez sur "Application Windows Forms" pour commencer votre nouveau projet.

2. Double-cliquez sur "Bouton" sur "Outils" volet pour créer un nouveau bouton. Double-cliquez sur "ListBox" sur "Outils" volet pour créer un nouveau contrôle de zone de liste. Double-cliquez sur "Button1" pour ouvrir la "Form1.vb" module.

3. Appuyez "Ctrl + A" et appuyez sur "Effacer" pour supprimer tout le code.

4. Copiez et collez le code suivant à votre "Form1.vb" module.

   Public Class Form1

   Private Sub Button1_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées Button1.Click
   Dim eventLogApp As New System.Diagnostics.EventLog ("Application")
   Dim EventLogEntry Comme System.Diagnostics.EventLogEntry
   
   
   Dim eventCntr As Integer = 1
   Pour chaque EventLogEntry Dans eventLogApp.Entries
   Me.ListBox1.Items.Add ("Nombre de l'événement:" & eventCntr)
   Me.ListBox1.Items.Add (eventLogEntry.EntryType.ToString)
   
   
   
   Me.ListBox1.Items.Add (eventLogEntry.TimeGenerated.ToString)
   Me.ListBox1.Items.Add (eventLogEntry.Source.ToString)
   Me.ListBox1.Items.Add (eventLogEntry.Category.ToString)
   Me.ListBox1.Items.Add (eventLogEntry.EventID.ToString)
   Me.ListBox1.Items.Add (eventLogEntry.MachineName.ToString)
   Me.ListBox1.Items.Add (eventLogEntry.Message.ToString)
   Me.ListBox1.Items.Add ("-----------------------------------------------")
   eventCntr eventCntr = + 1
   Me.ListBox1.Refresh ()
   Suivant
   End Sub

   End Class

5. Commencez votre programme en appuyant sur "F5" puis en cliquant sur "Button1" pour afficher les entrées du journal des événements à travers une zone de liste.