Trouble getting timer tick to fire in Windows Service

[Rico]

Hello,

I'm trying run a process at regular intervals using a windows service. the
problem is, the timer_tick event doesn't appear to be working. I've written
the following code as a test;

Public Class FileName
Protected Overrides Sub OnStart(ByVal args() As String)

Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick

If Not EventLog.Source Exists("Service 1") Then
EventLog.Create EventSource("Se rvice1", "Applicatio n")
End If

EventLog1.Sourc e = "Service1"
EventLog1.Write Entry("This is a simple event log entry")

End Sub

Needless to say, there are no EventLog entries occurring. I've also tried
to attach to the process but again, it doesn't seem to fire.

Any direction would be greatly appreciated.

Thanks!
Rick

[Herfried K. Wagner [MVP]]

"Rico" <[e-mail] ieb:

I'm trying run a process at regular intervals using a windows service.
the problem is, the timer_tick event doesn't appear to be working. I've
written the following code as a test;

Public Class FileName
Protected Overrides Sub OnStart(ByVal args() As String)

Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick

Note that 'System.Windows .Forms.Timer' does not work if its not placed on a
form. You may want to use 'System.Timers. Timer' or 'System.Theadin g.Timer'
instead.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Rico]

Excellent! That was the ticket!

Thanks Herfried!

Rick

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.atwrote in message
news:uq******** ******@TK2MSFTN GP04.phx.gbl...

"Rico" <[e-mail] ieb:

>I'm trying run a process at regular intervals using a windows service.
the problem is, the timer_tick event doesn't appear to be working. I've
written the following code as a test;

Public Class FileName
Protected Overrides Sub OnStart(ByVal args() As String)

Timer1.Interva l = 1000
Timer1.Enabl ed = True

End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventAr gs) Handles Timer1.Tick

Note that 'System.Windows .Forms.Timer' does not work if its not placed on
a form. You may want to use 'System.Timers. Timer' or
'System.Theadin g.Timer' instead.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>