在文本窗口 右击 属性 字体 右击 选择 vbsFunction Text_Trigger(Byval Item)Dim aSet a=HMIRuntime.Tags("变量")a.readIf "a= " ThenItem.Text="内容1"End IfIf "a= " ThenItem.Text="内容2"End If......End Function