创建全局变量

在本章中使用脚本来工作，必须先创建一个全局变量对象，这个对象中的字符串用来表示当前活动画面。

创建一个全局变量对象，用这个对象中的字符串来表示当前活动画面：

1. 在 iFIX 工作台系统树中，用鼠标右击Globals文件夹中User图标，并从弹出菜单中选择创建变量。
2. 设置CurrentPicture的名称属性，设置VariableType属性为8个字符串。系统树看上区如下图所示：

系统树举例

一旦已创建了全局变量，添加下面代码到主画面的Activate方法中来设定一个全局变量：

Private Sub CFixPicture_Activated()

 

'Set the user global variable when you activate to find

'out the name of current active picture.

user.CurrentPicture.CurrentValue = Me.FullyQualifiedName

 

'Me is a VB intrinsic variable that tells you the name

'of the current project (picture object).

End Sub

全局变量使您知道主画面已经捕获到焦点，因此工具栏能够响应动作。现在您用鼠标右键单击这个位图对象，并从提示可从菜单中选择编辑脚本，然后给这个对象添加下列代码：

Dim PicObj As Object

 

'Loop through the documents that are open.

For Each PicObj In Application.Documents

'If the document that is open has the same name as the

'current active main picture, set the active property,

'which will in turn set the active document.

If PicObj.Name = user.CurrentPicture.CurrentValue Then

     PicObj.active = True

     'Acknowledge alarms of the selected items in the

     '活动的画面.

     AcknowledgeAnAlarm

     Exit Sub

End If

Next PicObj

如何做...