Partager via


TextSelection.SwapAnchor, méthode

Mise à jour : novembre 2007

Échange les positions du point actif et du point d'ancrage.

Espace de noms :  EnvDTE
Assembly :  EnvDTE (dans EnvDTE.dll)

Syntaxe

Sub SwapAnchor

Dim instance As TextSelection

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

Exemples

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

Autorisations

Voir aussi

Référence

TextSelection, interface

Membres TextSelection

EnvDTE, espace de noms