Share via


TextSelection.AnchorPoint-Eigenschaft

Aktualisiert: November 2007

Ruft den Ausgangspunkt der Markierung ab.

Namespace:  EnvDTE
Assembly:  EnvDTE (in EnvDTE.dll)

Syntax

ReadOnly Property AnchorPoint As VirtualPoint

Dim instance As TextSelection
Dim value As VirtualPoint

value = instance.AnchorPoint
VirtualPoint AnchorPoint { get; }
property VirtualPoint^ AnchorPoint {
    VirtualPoint^ get ();
}
function get AnchorPoint () : VirtualPoint

Eigenschaftenwert

Typ: EnvDTE.VirtualPoint

Ein VirtualPoint-Objekt.

Hinweise

Obwohl TextPoint-Objekte die Position des markierten Textes im Editorfenster angeben, definieren sie nicht die Position im Puffer. Der virtuelle Bereich, d. h. der Bereich nach dem Ende einer Zeile, wird ebenfalls nur im Editorfenster wiedergegeben. Wenn Sie EditPoint im Textpuffer zum Ändern von Text verwenden, ist die für den markierten Text ausgeführte Operation folglich nicht definiert. Beispielsweise kann ein Befehl ausgehend von markiertem Text Bearbeitungspunkte abrufen und dann den Puffer ändern. Um zu gewährleisten, dass sich der markierte Text an einer bestimmten Position befindet, müssen Sie den markierten Text am Ende des Befehls explizit an dieser Position platzieren.

Beispiele

Sub AnchorPointExample()
    ' Before running this example, open a text document.
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    Dim objAnchor As VirtualPoint = objSel.AnchorPoint
    ' objAnchor is "live", tied to the position of the actual selection, 
    ' so it will reflect any changes. iCol and iRow are created here to 
    ' save a "snapshot" of the anchor point's position at this time.
    Dim iCol As Long = objAnchor.DisplayColumn
    Dim iRow As Long = objAnchor.Line
    ' As the selection is extended, the active point moves but the anchor 
    ' point remains in place.
    objSel.StartOfDocument(True)
    objSel.EndOfDocument(True)

    If (iCol = objAnchor.DisplayColumn And iRow = objAnchor.Line) Then
        MsgBox("The anchor point has remained in place at row " & iRow & ", display column " & iCol)
    End If
End Sub

Berechtigungen

Siehe auch

Referenz

TextSelection-Schnittstelle

TextSelection-Member

EnvDTE-Namespace