Partager via


TextSelection.SwapAnchor Method

Definition

Exchanges the position of the active and the anchor points.

public:
 void SwapAnchor();
public:
 void SwapAnchor();
void SwapAnchor();
[System.Runtime.InteropServices.DispId(49)]
public void SwapAnchor ();
[<System.Runtime.InteropServices.DispId(49)>]
abstract member SwapAnchor : unit -> unit
Public Sub SwapAnchor ()
Attributes

Examples

Sub SwapAnchorExample()  
    ' Before running this example, open a text document.  
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection  

    ' Move to the beginning of the document so we can iterate over the   
    ' whole thing.  
    objSel.StartOfDocument()  
    While objSel.FindPattern("#if _DEBUG")  
        ' If we found the beginning of a debug-only section, save the   
        ' position.  
        Dim lStartLine As Long = objSel.TopPoint.Line  
        Dim lStartColumn As Long = objSel.TopPoint.LineCharOffset  

        ' Look for the end.  
        If objSel.FindPattern("#endif") Then  
            ' Select the entire section and outline it.  
            objSel.SwapAnchor()  
            objSel.MoveToLineAndOffset(lStartLine, lStartColumn, True)  
            objSel.OutlineSection()  
            objSel.LineDown()  
        End If  
    End While  
End Sub  

Remarks

See AnchorPoint for more information about anchor points.

Applies to