Поделиться через


TextSelection.MoveToLineAndOffset - метод

Перемещает активную точку на данную позицию.

Пространство имен:  EnvDTE
Сборка:  EnvDTE (в EnvDTE.dll)

Синтаксис

'Декларация
Sub MoveToLineAndOffset ( _
    Line As Integer, _
    Offset As Integer, _
    Extend As Boolean _
)
void MoveToLineAndOffset(
    int Line,
    int Offset,
    bool Extend
)
void MoveToLineAndOffset(
    [InAttribute] int Line, 
    [InAttribute] int Offset, 
    [InAttribute] bool Extend
)
abstract MoveToLineAndOffset : 
        Line:int * 
        Offset:int * 
        Extend:bool -> unit 
function MoveToLineAndOffset(
    Line : int, 
    Offset : int, 
    Extend : boolean
)

Параметры

  • Line
    Тип: System.Int32
    Обязательный.Номер строки, к которой следует перейти; нумерация ведется с 1.Значениями параметра Line также могут быть константы из объекта vsGoToLineOptions.
  • Offset
    Тип: System.Int32
    Обязательный.Позиция знака в строке, начиная с единицы.
  • Extend
    Тип: System.Boolean
    Необязательный.Значение по умолчанию — false.Логическое значение, указывающее на необходимость развертывания выделенного в данный момент текста.Если аргумент Extend имеет значение true, то активная конечная точка выделенного текста перемещается в заданную позицию, а конечная точка привязки остается на прежнем месте.В противном случае обе конечные точки перемещаются в указанное место.Этот аргумент применяется только к объектам TextSelection.

Заметки

Если значение Offset определяет позицию правее последнего знака строки, документ перемещается в конец строки.

Примеры

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

Безопасность платформы .NET Framework

См. также

Ссылки

TextSelection Интерфейс

EnvDTE - пространство имен