该属性用于过滤报警一览对象中的搁置报警。
语法
对象。DisplayShelvedAlarms [=Boolean]
属性
DisplayShelvedAlarms 属性语法包含以下部分:
|
组成部分 |
描述 |
|
对象 |
评估“应用到”列表中报警一览对象的对象表达式。 |
|
布尔值 |
是否在报警一览对象中显示搁置报警。 |
设置
DisplayShelvedAlarms 的设置如下:
|
常量 |
描述 |
|
True |
当设为 True 时，仅在报警一览对象中显示搁置报警。（默认） |
|
False |
当设为 False 时，在报警一览对象中显示未搁置的报警。 |
示例
本例对报警一览对象应用搁置过滤器。
‘ 对报警一览对象应用搁置筛选器
Public Sub ShelvedAlarmsFilter(FilterFlag As Boolean)
Dim AppObj As Object
Dim PictureObj As Object
Dim CurrentObj As Object
If TypeName(Application) = "CFixApp" Then
‘ running in the workspace
Set AppObj = Application
Else
Set AppObj = App
If AppObj Is Nothing Then
Exit Sub
End If
End If
‘ 搜索报警一览对象并应用搁置报警筛选器
Set PictureObj = AppObj.ActiveDocument
For Each CurrentObj In PictureObj.Page.ContainedObjects
If TypeName(CurrentObj) = "AlarmSummaryOCX" Then
If CurrentObj.Name = "AlarmSummaryOCX1" Then
CurrentObj.DisplayShelvedAlarms = FilterFlag
Exit Sub
End If
End If
Next
End Sub
应用到
查看最新版 iFIX 的所有新功能。
让 iFIX 帮助您提高效率，降低成本。
