XObject.AddAnnotation(Object) Méthode

public:
 void AddAnnotation(System::Object ^ annotation);

public void AddAnnotation(object annotation);

member this.AddAnnotation : obj -> unit

Public Sub AddAnnotation (annotation As Object)

Paramètres

Exemples

L’exemple suivant ajoute une annotation à un XElement.

public class MyAnnotation {
    private string tag;
    public string Tag {get{return tag;} set{tag=value;}}
    public MyAnnotation(string tag) {
        this.tag = tag;
    }
}

public class Program {
    public static void Main(string[] args) {
        MyAnnotation ma = new MyAnnotation("T1");
        XElement root = new XElement("Root", "content");
        root.AddAnnotation(ma);

        MyAnnotation ma2 = (MyAnnotation)root.Annotation<MyAnnotation>();
        Console.WriteLine(ma2.Tag);
    }
}

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

Cet exemple produit la sortie suivante :

T1

Remarques

Notez que les annotations ne font pas partie de l’ensemble d’informations ; ils ne sont pas conservés ou affichés par ToString. En outre, si vous importez un espace de noms XML dans votre projet VB et appelez AddAnnotation avec la valeur d’énumération SaveOptions.OmitDuplicateNamespaces, un seul élément contiendra l’attribut Espace de noms XML au lieu de chaque élément. Pour plus d’informations, consultez Suppression d’espaces de noms en double dans des littéraux XML.

Voir aussi

• Vue d’ensemble de LINQ to XML