'Dim objText As HMIStaticText

Dim objDynDialog As HMIDynamicDialog

Dim sCode As String

For Each objMember In objResult

   sCode = "'tag1'" '动态对话框中的表达式

   Set objDynDialog =  objMember.Properties("BackColor").CreateDynamic(hmiDynamicCreationTypeDynamicDialog, sCode)

With objDynDialog

   .ResultType = hmiResultTypeBool

   .BinaryResultInfo.PositiveValue = RGB(255, 0, 0) '红色

   .BinaryResultInfo.NegativeValue =objMember.Properties("BackColor")  ' objText.BackColor '背景色

   .Trigger.VariableTriggers(1).CycleType = hmiVariableCycleTypeOnChange

End With

        objMember.Selected = True

    Next objMember

    MsgBox "操作完成："

End Sub