TextSelection.SwapAnchor 方法
定义
重要
一些信息与预发行产品相关,相应产品在发行之前可能会进行重大修改。 对于此处提供的信息,Microsoft 不作任何明示或暗示的担保。
交换活动点和定位点的位置。
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 定位点的详细信息,请参阅。