TextSelection.MoveToPoint 方法
移動現用點至指定的位置。
命名空間： EnvDTE
組件： EnvDTE (在 EnvDTE.dll 中)
語法
'宣告
Sub MoveToPoint ( _
Point As TextPoint, _
Extend As Boolean _
)
void MoveToPoint(
TextPoint Point,
bool Extend
)
void MoveToPoint(
[InAttribute] TextPoint^ Point,
[InAttribute] bool Extend
)
abstract MoveToPoint :
Point:TextPoint *
Extend:bool -> unit
function MoveToPoint(
Point : TextPoint,
Extend : boolean
)
參數
Point
類型：EnvDTE.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
.NET Framework 安全性
- 完全信任立即呼叫者。這個成員無法供部分信任的程式碼使用。如需詳細資訊，請參閱從部分受信任程式碼使用程式庫。