Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread Namespace / SheetView Class / ClipboardPaste Method / ClipboardPaste() Method
Example


In This Topic
    ClipboardPaste() Method
    In This Topic
    Pastes the contents from the Clipboard to the active sheet.
    Syntax
    'Declaration
     
    Public Overloads Sub ClipboardPaste() 
    'Usage
     
    Dim instance As SheetView
     
    instance.ClipboardPaste()
    public void ClipboardPaste()
    Example
    This example pastes data from the clipboard.
    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
    See Also