TextSelection.OutlineSection Método
Definição
Importante
Algumas informações se referem a produtos de pré-lançamento que podem ser substancialmente modificados antes do lançamento. A Microsoft não oferece garantias, expressas ou implícitas, das informações aqui fornecidas.
Cria uma seção de estrutura de tópicos com base na seleção atual.
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 ()
- Atributos
Exemplos
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