TextSelection.MoveToLineAndOffset - метод

Статья
11/05/2008

Обновлен: Ноябрь 2007

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

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

Синтаксис

'Декларация
Sub MoveToLineAndOffset ( _
    Line As Integer, _
    Offset As Integer, _
    Extend As Boolean _
)
'Применение
Dim instance As TextSelection
Dim Line As Integer
Dim Offset As Integer
Dim Extend As Boolean

instance.MoveToLineAndOffset(Line, Offset, _
    Extend)

void MoveToLineAndOffset(
    int Line,
    int Offset,
    bool Extend
)

void MoveToLineAndOffset(
    [InAttribute] int Line, 
    [InAttribute] int Offset, 
    [InAttribute] bool Extend
)

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

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

TextSelection Интерфейс

TextSelection - члены

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

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