Mega Code Archive

 

Categories / VB.Net / XML LINQ

 

XObject Annotation(T) 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 = root.Annotation(Of MyAnnotation)()         Console.WriteLine(ma2.Tag)     End Sub End Module