通过

TextSelection.DestructiveInsert 方法

  • 项目

插入文本，从而覆盖现有文本。

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

语法

声明
Sub DestructiveInsert ( _
    Text As String _
)

void DestructiveInsert(
    string Text
)

void DestructiveInsert(
    [InAttribute] String^ Text
)

abstract DestructiveInsert : 
        Text:string -> unit

function DestructiveInsert(
    Text : String
)

参数

  • Text
    类型：String

    必需。 表示要插入的文本。

备注

换行符会导致文本选定范围的活动端移动到下一行的行首。 根据文本文档中所使用的语言，它还可能会插入缩进。

示例

Public objSel As TextSelection = DTE.ActiveDocument.Selection

Sub DestructiveInsertExample()
   ' Before running this example, open a text document.
   ' Perform operations on the text.
   objSel.StartOfDocument(False)
   Position(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn, 4)
   objSel.Copy()
   Position(vsStartOfLineOptions.vsStartOfLineOptionsFirstText, 4)
   objSel.Cut()
   Position(vsStartOfLineOptions.vsStartOfLineOptionsFirstText, 4)
   objSel.Delete()
   Position(vsStartOfLineOptions.vsStartOfLineOptionsFirstText, 4)
   objSel.DeleteLeft(6)
   objSel.DestructiveInsert("NEW TEXT")
End Sub

Sub Position(ByVal pos As vsStartOfLineOptions, ByVal ipos As Integer)
   ' Moves the insertion point down to the beginning of the next line, 
   ' and then highlights the right-most four characters.
   objSel.LineDown()
   objSel.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
   objSel.CharRight(True, 4)
End Sub

.NET Framework 安全性

请参阅

参考

TextSelection 接口

EnvDTE 命名空间