明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

使用EventLog控件向事件查看器中寫出事件方法。

[摘要]'請先從組件中拖一個EventLog的控件到的你的Form上 '我用一個命令按鈕來執(zhí)行寫入操作。 Private Sub Button1_Click(ByVal sender As ...
'請先從組件中拖一個EventLog的控件到的你的Form上

'我用一個命令按鈕來執(zhí)行寫入操作。
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'如果沒有存在事件源的話就新建一個
If Not EventLog.SourceExists("WriteToEvent") Then
EventLog.CreateEventSource("WriteToEvent", "Application")'Application是表示放于應用程序事件中
End If
EventLog1.Source = "WriteToEvent"
EventLog1.WriteEntry("在這里我執(zhí)行一個寫入測試。")'執(zhí)行寫入操作。
End Sub