用VBA组态。

Dim objIOField As HMIIOField
Dim objVariableTrigger As HMIVariableTrigger
Dim sObj As String
Dim sCode As String

sObj = "IO1"
Set objIOField = ThisDocument.HMIObjects(sObj)
sCode = “tag1”
Set objVariableTrigger = objIOField.OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, sCode)
objVariableTrigger.CycleType = hmiVariableCycleTypeOnChange