XObject.Annotation gets the first annotation object of the specified type from this XObject. : XObject « XML LINQ « VB.Net

1. VB.Net
2. XML LINQ
3. XObject

XObject.Annotation gets the first annotation object of the specified type from this XObject.

 

Imports System
Imports System.Xml
Imports System.Xml.Schema

Public Class MyAnnotation
    Private _tag As String

    Property Tag() As String
        Get
            Return Me._tag
        End Get
        Set(ByVal Value As String)
            Me._tag = Value
        End Set
    End Property

    Public Sub New(ByVal tag As String)
        Me._tag = tag
    End Sub
End Class

Module Module1
    Sub Main()
        Dim ma As MyAnnotation = New MyAnnotation("T1")
        Dim root As XElement = <Root>content</Root>
        root.AddAnnotation(ma)

        Dim ma2 As MyAnnotation = DirectCast(root.Annotation(GetType(MyAnnotation)), MyAnnotation)
        Console.WriteLine(ma2.Tag)
    End Sub

End Module

   
  

Related examples in the same category