WINCC通过脚本让IO域背景闪烁

“输入/输出域”对象属性“FlashBackColor”控制闪烁是否激活，属性“BackFlashColorOff”指定闪烁关时颜色，属性“BackFlashColorOn”指定闪烁开时颜色。
用VBS脚本，激活闪烁前先设置好闪烁关时、开时颜色。
如在“输入/输出域”对象属性“FlashBackColor”添加vbs脚本，使用变量触发：
变量tag1、tag2是一组，变量tag3、tag4是一组
 
vbs示例脚本：
Dim tag1
Set tag1 = HMIRuntime.Tags("tag1")
Dim tag2
Set tag2 = HMIRuntime.Tags("tag2")
Dim tag3
Set tag3 = HMIRuntime.Tags("tag3")
Dim tag4
Set tag4 = HMIRuntime.Tags("tag4")
Dim objIO
Set objIO= ScreenItems("输入/输出域1")
 
tag1.Read
tag2.Read
tag3.Read
tag4.Read
 
If tag1.Value=1 Or tag3.Value=1 Then
objIO.BackFlashColorOff=vbRed
objIO.BackFlashColorOn=vbWhite
End if
If tag2.Value=1 Or tag4.Value=1 Then
objIO.BackFlashColorOff=vbYellow
objIO.BackFlashColorOn=vbWhite
End if
 
If tag1.Value=1 Or tag2.Value=1 Or tag3.Value=1 Or tag4.Value=1  Then
FlashBackColor_Trigger=TrUE
Else
FlashBackColor_Trigger=FALSE
End if