Condividi tramite


TextSelection.OutlineSection Method

Definition

Creates an outlining section based on the current selection.

public:
 void OutlineSection();
public:
 void OutlineSection();
void OutlineSection();
[System.Runtime.InteropServices.DispId(72)]
public void OutlineSection ();
[<System.Runtime.InteropServices.DispId(72)>]
abstract member OutlineSection : unit -> unit
Public Sub OutlineSection ()
Attributes

Examples

Sub OutlineSectionExample()  
    ' 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  

Applies to