EditPoint2.Copy メソッド (Object, Boolean)

[アーティクル]
08/09/2011

指定したテキスト範囲をクリップボードにコピーします。

名前空間: EnvDTE80
アセンブリ: EnvDTE80 (EnvDTE80.dll 内)

構文

'宣言
Sub Copy ( _
    PointOrCount As Object, _
    Append As Boolean _
)

void Copy(
    Object PointOrCount,
    bool Append
)

void Copy(
    [InAttribute] Object^ PointOrCount, 
    [InAttribute] bool Append
)

abstract Copy : 
        PointOrCount:Object * 
        Append:bool -> unit

function Copy(
    PointOrCount : Object, 
    Append : boolean
)

パラメーター

PointOrCount
型: System.Object
必ず指定します。TextPoint オブジェクトまたは文字数。

Append
型: System.Boolean
省略可能です。選択したテキストをクリップボードに追加するかどうかを指定します。既定値は、false です。

実装

EditPoint.Copy(Object, Boolean)

解説

引数が TextPoint オブジェクトの場合、Copy は、エディットポイントと PointOrCount の間のテキストを表す文字列をコピーします。引数が整数の場合、Copy は、エディットポイントの後の指定した文字数を表す文字列をコピーします。各行の末尾で暗黙的に指定される改行シーケンスも 1 文字と見なされます。 PointOrCount が負の値の場合、Copy は、エディットポイントの後ではなく前にあるテキストをコピーします。

Append が true の場合、Copy は、選択内容を置き換えるのではなく、選択内容をクリップボードの内容に追加します。

例

Sub CopyExample()
   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
        
   ' Copies the fourth word of the fourth line, pastes it, 
   ' and then cuts the fourth word of the eighth line.
   objEditPt.StartOfDocument()
   objEditPt.LineDown(3)
   objEditPt.WordRight(3)
   objEditPt.Copy(4)
   objEditPt.Paste()
   objEditPt.LineDown(3)
   objEditPt.WordRight(3)
   objEditPt.Cut(4)
End Sub