EditPoint2.Delete 方法 (Object)

项目
10/25/2012

删除指定范围内的文本。

命名空间： EnvDTE80
程序集： EnvDTE80（在 EnvDTE80.dll 中）

语法

声明
Sub Delete ( _
    PointOrCount As Object _
)

void Delete(
    Object PointOrCount
)

void Delete(
    [InAttribute] Object^ PointOrCount
)

abstract Delete : 
        PointOrCount:Object -> unit

function Delete(
    PointOrCount : Object
)

参数

PointOrCount
类型：System.Object
必选。表示是 TextPoint 对象还是字符数。

备注

如果 PointOrCount 是 TextPoint 对象，则 Delete 删除编辑点与 PointOrCount 之间的文本。如果 PointOrCount 是整数，则 Delete 删除编辑点后指定数目的字符文本（为每个隐含的换行序列在行尾添加一个字符）。

如果 PointOrCount 为负，则 Delete 删除编辑点之前的文本。

示例

Sub DeleteExample()
   Dim objTextDoc As TextDocument
   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
        
   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objeditpt.Insert("This is a test." & Chr(13))
   Next iCtr
        
   ' Change the first letter of the fourth word of the fourth line.
   objEditPt.StartOfDocument()
   objEditPt.LineDown(3)
   objEditPt.WordRight(3)
   objEditPt.CharRight(2)
   objEditPt.Charleft(2)
   objeditpt.Delete(1)
   objEditPt.Insert("p")
End Sub