EditPoint2.MoveToPoint(TextPoint) 方法
定义
重要
一些信息与预发行产品相关,相应产品在发行之前可能会进行重大修改。 对于此处提供的信息,Microsoft 不作任何明示或暗示的担保。
将活动点移动到给定位置。
public:
void MoveToPoint(EnvDTE::TextPoint ^ Point);
public:
void MoveToPoint(EnvDTE::TextPoint ^ Point);
void MoveToPoint(EnvDTE::TextPoint const & Point);
[System.Runtime.InteropServices.DispId(170)]
public void MoveToPoint (EnvDTE.TextPoint Point);
[<System.Runtime.InteropServices.DispId(170)>]
abstract member MoveToPoint : EnvDTE.TextPoint -> unit
Public Sub MoveToPoint (Point As TextPoint)
参数
实现
- 属性
示例
Sub MoveToPointExample()
Dim objTextDoc As TextDocument
Dim objMovePt As EditPoint
Dim objEditPt As EditPoint, iCtr As Integer
' Create a new text file.
DTE.ItemOperations.NewFile("General\Text File")
' Get a handle to the new document and create an EditPoint.
objTextDoc = DTE.ActiveDocument.Object("TextDocument")
objEditPt = objTextDoc.StartPoint.CreateEditPoint
objMovePt = objTextDoc.EndPoint.CreateEditPoint
' Insert ten lines of text.
For iCtr = 1 To 10
objEditPt.Insert("This is a test." & Chr(13))
Next iCtr
' Move the active point to where the second edit point is
' and then insert some text.
objEditPt.StartOfDocument()
objMovePt.LineDown(3)
objEditPt.MoveToPoint(objMovePt)
objEditPt.Insert("HELLO")
End Sub