这个服务为什么不能启动程序？

[hzybc]

Public Class Service1
Dim xN As Integer

Protected Overrides Sub OnStart(ByVal args() As String)
' 请在此处添加代码以启动您的服务。此方法应完成设置工作，
' 以使您的服务开始工作。
Timer1.Enabled = True
End Sub

Protected Overrides Sub OnStop()
' 在此处添加代码以执行任何必要的拆解操作，从而停止您的服务。
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If xN < 3 Then
xN = xN + 1
Shell("C:\Calc.exe", AppWinStyle.NormalFocus)
Else
Timer1.Enabled = False
End If
End Sub
End Class

'--------------------------
服务已经成功注册，可随系统启动

[kingsunmax]

OnStart() 这个是开始啊

[hzybc]

在 OnStart() 中是有语句的

请高手指点一下

[honey52570]

up

不会VB

[hzybc]

我是第一次做服务，二位高手能否再具体点，谢谢

[Jeffrey_Wang]

private System.Timers.Timer cdTimer;
protected override void OnStart(string[] args)
{
this.cdTimer = new System.Timers.Timer(60000);
cdTimer.Elapsed += this.OnTimerElapsed;
cdTimer.Start();
}

[sz_lgp]

Timer1 定义时有没有加上withevents?如果没有Timer1事件无法启动。

[hzybc]

Friend WithEvents Timer1 As System.Windows.Forms.Timer

是不是这句？？

[Jeffrey_Wang]

注意：
1.windows服务中的timer控件，名称空间是 System.Timers.Timer
不是 System.Windows.Forms.Timer
2.看看事件有没有加上