Mega Code Archive

 

Categories / VB.Net / XML LINQ

 

XObject Annotations(T) gets a collection of annotations of the specified type for this XObject

Imports System Imports System.Linq Imports System.Collections Imports System.Collections.Generic 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 root As XElement = <Root>content</Root>         root.AddAnnotation(New MyAnnotation("T1"))         root.AddAnnotation(New MyAnnotation("T2"))         root.AddAnnotation("abc")         root.AddAnnotation("def")         Dim annotationList As IEnumerable(Of MyAnnotation)         annotationList = root.Annotations(Of MyAnnotation)()         For Each ma As MyAnnotation In annotationList             Console.WriteLine(ma.Tag)         Next         Dim stringAnnotationList As IEnumerable(Of String)         stringAnnotationList = root.Annotations(Of String)()         For Each str As String In stringAnnotationList             Console.WriteLine(str)         Next     End Sub End Module