改变FIX事件的数据源

以下步骤描述了如何在运行模式下改变一个FIX事件的数据源。

在运行模式下改变一个FIX事件的数据源方法如下:

1. 在数据库管理器中创建一个AI数据块和一个DO数据块。
2. Create a new picture.
3. 插入一个FIX事件。
4. 命名FIX事件，并选择AI数据块作为数据源。
5. 在画面中添加一个矩形。在画面中添加一个矩形，鼠标右击矩形并从弹出窗口中选择。
6. 在矩形的Click事件中填入下面代码:

Dim obj As Object

Dim Count As Integer

 

'Set obj equal to the collection of objects contained in 'the active picture

Set obj = Application.ActiveDocument.Page.ContainedObjects

Count = obj.Count

 

'Loop through all of the objects in the picture to find 'any that are Event objects.

While Count > 0

     'If the object is an Event object, change its source

     If obj.Item(Count).ClassName = "FixEvent" Then

          obj.Item(Count).Source = "Fix32.ThisNode.DO.F_CV"

          'Display a message box that describes the change.

          MsgBox "The Fix Event " & obj.Item(Count).Name & _

          " is now connected to the data source " & _

          obj.Item(Count).Source

     End If

     Count = Count – 1

Wend

7. 切换到运行时模式并单击这个矩形。对话框将指出数据源已被更改。

相关信息

如何做...