示例：读取标签值

本示例阐述了读取属于 TagGroup 对象的标签的值。第一个子程序创建了 TagGroup 对象，并对其添加了标签并激活 TagGroup。第二个子程序读取 TagGroup 中标签的值。
Dim WithEvents oGroup As TagGroup
Sub SetUpTagGroup()
    On Error Resume Next
    Err.Clear    
    If oGroup Is Nothing Then
        Set oGroup = Application.CreateTagGroup(Me.AreaName, 500)
        If Err.Number Then
            LogDiagnosticsMessage "Error creating TagGroup. Error: " _
                & Err.Description, ftDiagSeverityError
            Exit Sub
        End If
        oGroup.Add "System\Second"
        oGroup.Add "System\Minute"
        oGroup.Active = True
    End If
End Sub
Sub GetTagValue()
    On Error Resume Next
    Dim oTag As Tag
    Dim vValue As Variant
    If Not oGroup Is Nothing Then
        Set oTag = oGroup.Item("System\Second")
        Err.Clear
        vValue = oTag.Value
        Select Case Err.Number
            Case 0:
                MsgBox "System\Second = " & vValue
            Case tagErrorReadValue:
                MsgBox "Error to reading tag value. Error: " & _
                    oTag.LastErrorString
            Case tagErrorOperationFailed:
                MsgBox "Failed to read from tag. Error: " & Err.Description
        End Select
    End If
End Sub
提供反馈
对本文档有问题或反馈吗？ 请在这里提交您的反馈 。
Normal