PowerTools SPREAD for Windows Forms 8.0J
ClipboardCopy メソッド


シートの内容をクリップボードにコピーします。
シートの内容をクリップボードにコピーします。
オーバーロード一覧
オーバーロード説明
ClipboardCopy()シートの内容をクリップボードにコピーします。  
ClipboardCopy(ClipboardCopyOptions)指定したClipboardCopyOptionsを使用して、シートの内容をクリップボードにコピーします。  
ClipboardCopy(CellRange)シートの指定したセル範囲の内容をクリップボードにコピーします。  
ClipboardCopy(CellRange,ClipboardCopyOptions)指定したClipboardCopyOptionsを使用して、シートの指定したセル範囲の内容をクリップボードにコピーします。  
解説
Spread からセルをコピーしたとき、リッチ テキスト形式はクリップボードに保存されません。リッチ テキスト セル型エディタのデータをコピーした場合は、リッチ テキスト書式情報がすべてコピーされます。詳細については、「リッチテキスト型セル」を参照してください。
次のサンプルコードは、データをクリップボードにコピーします。
Random r = new Random();
int i, j;
DialogResult dlg;
for (i = 0; i <= 3; i++)
{
    for (j = 0; j <= 3; j++)
    {
        fpSpread1.ActiveSheet.SetValue(i, j, r.Next() -100000);
    }
}
dlg = MessageBox.Show("Do you want to copy the data to the clipboard?", "ClipboardCopy", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
    fpSpread1.ActiveSheet.AddSelection(0, 0, 3, 3);
    fpSpread1.ActiveSheet.ClipboardCopy();
}
dlg = MessageBox.Show("Do you want to paste the data from the clipboard? If yes, let's clear the data first.", "Clear", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
    fpSpread1.ActiveSheet.Cells[0, 0, 5, 5].Text = "";
}
dlg = MessageBox.Show("Now we're ready to paste!!", "ClipboardPaste", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
    fpSpread1.ActiveSheet.ClipboardPaste();
}
Dim r As New Random()
Dim i, j As Integer
Dim dlg As DialogResult
For i = 0 To 3
    For j = 0 To 3
        FpSpread1.ActiveSheet.SetValue(i, j, r.Next - 100000.ToString())
    Next j
Next i
dlg = MessageBox.Show("Do you want to copy the data to the clipboard?", "ClipboardCopy", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
    FpSpread1.ActiveSheet.AddSelection(0, 0, 3, 3)
    FpSpread1.ActiveSheet.ClipboardCopy()
End If
dlg = MessageBox.Show("Do you want to paste the data from the clipboard? If yes, let's clear the data first.", "Clear", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
    FpSpread1.ActiveSheet.Cells(0, 0, 5, 5).Text = ""
End If
dlg = MessageBox.Show("Now we're ready to paste!!", "ClipboardPaste", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
    FpSpread1.ActiveSheet.ClipboardPaste()
End If
参照

SheetView クラス
SheetView メンバ

開発者ガイド

クリップボード機能
既定キー一覧

 

 


© 2004-2015, GrapeCity inc. All rights reserved.