ifix -研究调度事件(event)在运行态进行激活和停止的方法

1.研究背景（基本原理）

ifix在使用后台调度时，有时需要将某些事件调度进行手动激活或停止。对于运营人员来说，切换到编辑模式来做，过于复杂，遂实现在运行态实现该功能。

基本原理：

通过后台找到确定的event对象，通过该对象的StopEvent，StartEvent方法实现停止和激活功能，通过Status方法实现对该事件对象状态查看。

2.实现方法

准备工作：在界面上做两个按钮，分别用来实现激活和停止调度功能。

分别对该两按钮进行编程如下：

1.激活按钮：（对点位状态进行弹窗显示）

Private Sub CommandButton1_Click()
Dim Var1 As Object
Dim Var2 As Object
Dim strMsg As Boolean
Dim Msg As String


Set Var1 = GetObject(, "FixBackGroundServer.Application")
Set Var2 = Var1.System.FindObject("tt.FixEvent1")

Var2.StartEvent
strMsg = Var2.Status
If strMsg = True Then

Msg = "该点位已激活"
End If

MsgBox Msg, vbOKOnly, "Message"
End Sub

2.停止按钮（使用循环对多个事件进行操作）

Private Sub CommandButton2_Click()
Dim Var1 As Object
Dim Var2 As Object
'Dim al As Variant

'al = Array("tt.FixEvent1", "tt.FixEvent2", "tt.FixEvent3", "tt.FixEvent4", "tt.FixEvent5")
Set Var1 = GetObject(, "FixBackGroundServer.Application")
'For Each i In al
        ' Set Var2 = Var1.System.FindObject("tt.FixEvent" + i)
       ' Var2.StopEvent
     ' Next i
      For i = 1 To 5
       Set Var2 = Var1.System.FindObject("tt.FixEvent" + CStr(i))
       Var2.StopEvent
       Next i
'Set Var2 = Var1.System.FindObject("tt.FixEvent1")

End Sub

3.总结

对功能的相应新增，主要还是需要对ifix相关属性文档进行深入查看，掌握VB一定基础编程即可。