EditPoint2.MoveToPoint(TextPoint) 方法

定义

将活动点移动到给定位置。

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)

参数

Point
TextPoint

必需。 一个 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  

适用于