TextSelection.MoveToPoint(TextPoint, Boolean) Метод
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
Перемещает активную точку в данную позицию.
void MoveToPoint(EnvDTE::TextPoint const & Point, bool Extend = false);
[System.Runtime.InteropServices.DispId(38)]
public void MoveToPoint (EnvDTE.TextPoint Point, bool Extend = false);
[<System.Runtime.InteropServices.DispId(38)>]
abstract member MoveToPoint : EnvDTE.TextPoint * bool -> unit
Public Sub MoveToPoint (Point As TextPoint, Optional Extend As Boolean = false)
Параметры
- Point
- TextPoint
Обязательный. Позиция, в которую требуется переместить знак.
- Extend
- 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
' text selection.
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