IFIX 排程功能 (在背景 啟動 停止定時器)

To stop the TimerObject:

Private Sub CommandButton1_Click()

Dim Var1 As Object

Dim Var2 As Object

Set Var1 = GetObject (,"FixBackGroundServer.Application")

Set Var2 = Var1.System.FindObject("sched.Timer1")

Var2.TimerEnabled = False

End Sub

To start the TimerObject:

Private Sub CommandButton2_Click()

Dim Var1 As Object

Dim Var2 As Object

Set Var1 = GetObject (,"FixBackGroundServer.Application")

Set Var2 = Var1.System.FindObject("sched.Timer1")

Var2.TimerEnabled = False

Var2.StartTimer

End Sub