Udostępnij za pośrednictwem


TextSelection.SwapAnchor Method

Exchanges the position of the active and the anchor points.

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

Syntax

'Declaration
Sub SwapAnchor
'Usage
Dim instance As TextSelection

instance.SwapAnchor()
void SwapAnchor()
void SwapAnchor()
function SwapAnchor()

Remarks

See AnchorPoint for more information about anchor points.

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

.NET Framework Security

See Also

Reference

TextSelection Interface

TextSelection Members

EnvDTE Namespace