Open EventLog

[João Santa Bárbara]

Hi all
i have made an aplication, that uses Eventlog object, my problem is
i need to open the eventlog in my aplication with all entrys how can i do
this ?

thks
JSB

PS : i need to open the window in my aplication with all events that i have
written .. :D

[Ken Tucker [MVP]]

Hi,

Module Module1
Sub Main()
Dim evl As New EventLog("Application")

Dim str As String

str = "No entries: " & evl.Entries.Count
Console.WriteLine(str)
For Each entry As EventLogEntry In evl.Entries
Dim strEntry As String
strEntry = String.Format("{0} {1}", entry.EventID, entry.Source)
Console.WriteLine(strEntry)
Next

Console.WriteLine(str)
End Sub
End Module

Ken
------------------
"João Santa Bárbara" <jo****@i24portugal.com> wrote in message
news:uj**************@TK2MSFTNGP11.phx.gbl...

Hi all
i have made an aplication, that uses Eventlog object, my problem is
i need to open the eventlog in my aplication with all entrys how can i do
this ?

thks
JSB

PS : i need to open the window in my aplication with all events that i
have
written .. :D

[João Santa Bárbara]

thks .. :D

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:uQ**************@TK2MSFTNGP12.phx.gbl...

Hi,

Module Module1
Sub Main()
Dim evl As New EventLog("Application")

Dim str As String

str = "No entries: " & evl.Entries.Count
Console.WriteLine(str)
For Each entry As EventLogEntry In evl.Entries
Dim strEntry As String
strEntry = String.Format("{0} {1}", entry.EventID, entry.Source) Console.WriteLine(strEntry)
Next

Console.WriteLine(str)
End Sub
End Module

Ken
------------------
"João Santa Bárbara" <jo****@i24portugal.com> wrote in message
news:uj**************@TK2MSFTNGP11.phx.gbl...

Hi all
i have made an aplication, that uses Eventlog object, my problem is
i need to open the eventlog in my aplication with all entrys how can i do this ?

thks
JSB

PS : i need to open the window in my aplication with all events that i
have
written .. :D