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


TextSelection.MoveToPoint - метод

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

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

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

Синтаксис

'Декларация
Sub MoveToPoint ( _
    Point As TextPoint, _
    Extend As Boolean _
)
'Применение
Dim instance As TextSelection
Dim Point As TextPoint
Dim Extend As Boolean

instance.MoveToPoint(Point, Extend)
void MoveToPoint(
    TextPoint Point,
    bool Extend
)
void MoveToPoint(
    [InAttribute] TextPoint^ Point, 
    [InAttribute] bool Extend
)
function MoveToPoint(
    Point : TextPoint, 
    Extend : boolean
)

Параметры

  • Point
    Тип: EnvDTE.TextPoint
    Обязательный. Позиция, в которую требуется переместить знак.
  • Extend
    Тип: System.Boolean
    Необязательный компонент. false по умолчанию. Это значение определяет необходимость развертывания выделенного в данный момент текста. Если аргумент Extend имеет значение true, то активная конечная точка выделенного текста перемещается в заданную позицию, а конечная точка привязки остается на прежнем месте. В противном случае обе конечные точки перемещаются в указанное место. Этот аргумент применяется только к объектам TextSelection.

Примеры

Sub MoveToPointExample()
    ' Before running this example, open a text document.
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    If objSel.IsEmpty Then
        ' If there is no text selected, swap the words before and after 
        ' the insertion point. We begin by selecting the word before 
        ' the insertion point.
        objSel.WordLeft(True)
        If Not objSel.IsEmpty Then
            ' We can continue only if the selection was not already at 
            ' the beginning of the document.
            Dim strBefore As String = objSel.Text

            ' The text is saved in strBefore; now delete it and move 
            ' past the following word.
            objSel.Delete()
            objSel.WordRight(True)
            If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
                ' The previous call to WordRight may have skipped some 
                ' white space instead of an actual word. In that case, 
                ' we should call it again.
                objSel.WordRight(True)
            End If

            ' Insert the new text at the end of the selection.
            objSel.Insert(strBefore, vsInsertFlags.vsInsertFlagsInsertAtEnd)
        End If
    Else
        ' If some text is selected, replace the following word with the 
        ' selected text.
        Dim strSelected As String = objSel.Text

        objSel.MoveToPoint(objSel.BottomPoint)
        objSel.WordRight(True)
        If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
            ' The previous call to WordRight may have skipped some 
            ' white space instead of an actual word. In that case, we 
            ' should call it again.
            objSel.WordRight(True)
        End If

        ' Insert the text, overwriting the existing text and leaving 
        ' the selection containing the inserted text.
        objSel.Insert(strSelected, vsInsertFlags.vsInsertFlagsContainNewText)
    End If
End Sub

Разрешения

См. также

Ссылки

TextSelection Интерфейс

TextSelection - члены

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