按钮鼠标单击触发：
Dim Tag
Set Tag=HMIRuntime.Tags("tag6")
Tag.Write 9
If 0<>Tag.LastError Then
HMIRuntime.Trace"Error:"&Tag.LastError &vbCrLf &"ErrorDes cription:"&Tag.ErrorDes cription &vbCrLf
Else
Tag.Read
If &H80<>Tag.QualityCode Then
HMIRuntime.Trace"QualityCode: 0x" & Hex (Tag.QualityCode)&vbCrLf
End If
End If
能在输出域里看到9，但是诊断窗口没有显示，这是怎么回事？请指教！