XObject.AddAnnotation(Object) 方法
定義
重要
部分資訊涉及發行前產品,在發行之前可能會有大幅修改。 Microsoft 對此處提供的資訊,不做任何明確或隱含的瑕疵擔保。
將物件加入此 XObject 的註釋清單。
public:
void AddAnnotation(System::Object ^ annotation);
public void AddAnnotation (object annotation);
member this.AddAnnotation : obj -> unit
Public Sub AddAnnotation (annotation As Object)
參數
- annotation
- Object
物件,包含要加入的註釋。
範例
下列範例會將批註新增至 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
這個範例會產生下列輸出:
T1
備註
請注意,批註不是資訊集的一部分;它們不會保存或由 ToString 顯示。 此外,如果您將 XML 命名空間匯入VB專案,並使用 SaveOptions.OmitDuplicateNamespaces 列舉值呼叫 AddAnnotation,則只有一個專案會包含 XML 命名空間屬性,而不是每個元素。 如需詳細資訊,請參閱 移除 XML 常值中的重複命名空間。