XObject.AddAnnotation adds an object to the annotation list of this XObject. : XObject « XML LINQ « VB.Net

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

XObject.AddAnnotation adds an object to the annotation list of 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(Of MyAnnotation)(), MyAnnotation)
        Console.WriteLine(ma2.Tag)
    End Sub

End Module

   
  

Related examples in the same category