This documentation is archived and is not being maintained.

SwapAnchor Method

Visual Studio .NET 2003

Exchanges the positionof the active and the anchor points.

[Visual Basic .NET]
Public Sub SwapAnchor() 
[Visual Basic 6]
Sub SwapAnchor() 
HRESULT __stdcall SwapAnchor();
public void SwapAnchor();
[JScript .NET]
public function SwapAnchor()


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.
    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.MoveToLineAndOffset(lStartLine, lStartColumn, True)
        End If
    End While
End Sub

See Also

Applies To: TextSelection Object