示例:Error 属性
Private Sub CheckPenError(PenNumber As Integer) If Trend1.Pens(PenNumber).Error = True Then MsgBox "Tag is in error. Make sure it is communicating properly." Else MsgBox "Tag value is valid." End If End Sub
提供反馈
Private Sub CheckPenError(PenNumber As Integer) If Trend1.Pens(PenNumber).Error = True Then MsgBox "Tag is in error. Make sure it is communicating properly." Else MsgBox "Tag value is valid." End If End Sub