IAnchorInfo.ResolvedAnchor Propriété

Définition

Espace de noms:

System.Windows.Annotations

Assembly:

PresentationFramework.dll

Obtient l'objet qui représente l'emplacement dans l'arborescence où le Anchor est résolu.

public:
 property System::Object ^ ResolvedAnchor { System::Object ^ get(); };

public object ResolvedAnchor { get; }

member this.ResolvedAnchor : obj

Public ReadOnly Property ResolvedAnchor As Object

Valeur de propriété

Object

Objet qui représente l'emplacement dans l'arborescence où le Anchor est résolu. Le type est spécifié par le type de l'objet annoté. Des pense-bêtes et des mises en évidence dans des documents dynamiques ou fixes sont toujours résolus en un objet TextAnchor.

Exemples

Considérez une application de lecteur de document simple qui a un volet de commentaires. Le volet de commentaires peut être une zone de liste qui affiche le texte à partir d’une liste d’annotations ancrées à un document. Si l’utilisateur sélectionne un élément dans la zone de liste, l’application affiche le paragraphe du document auquel l’objet d’annotation correspondant est ancré.

L’exemple suivant montre comment implémenter le gestionnaire d’événements d’une telle zone de liste qui sert de volet commentaires :

void annotationsListBox_SelectionChanged(object sender, SelectionChangedEventArgs e)
{

    Annotation comment = (sender as ListBox).SelectedItem as Annotation;
    if (comment != null)
    {
        // IAnchorInfo info;
        // service is an AnnotationService object
        // comment is an Annotation object
        info = AnnotationHelper.GetAnchorInfo(this.service, comment);
        TextAnchor resolvedAnchor = info.ResolvedAnchor as TextAnchor;
        TextPointer textPointer = (TextPointer)resolvedAnchor.BoundingStart;
        textPointer.Paragraph.BringIntoView();
    }
}

Private Sub annotationsListBox_SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs)

    Dim comment As Annotation = TryCast((TryCast(sender, ListBox)).SelectedItem, Annotation)
    If comment IsNot Nothing Then
        ' service is an AnnotationService object
        ' comment is an Annotation object
        info = AnnotationHelper.GetAnchorInfo(Me.service, comment)
        Dim resolvedAnchor As TextAnchor = TryCast(info.ResolvedAnchor, TextAnchor)
        Dim textPointer As TextPointer = CType(resolvedAnchor.BoundingStart, TextPointer)
        textPointer.Paragraph.BringIntoView()
    End If
End Sub