TextSelection.SwapAnchor 方法

定义

交换活动点和定位点的位置。

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 ()
属性

示例

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  

注解

有关 AnchorPoint 定位点的详细信息,请参阅。

适用于