private void Form1_Load(object sender, System.EventArgs e)
{
//Xシェイプを追加します
FarPoint.Win.Spread.DrawingSpace.XShape xs = new FarPoint.Win.Spread.DrawingSpace.XShape();
xs.Name = "x-01";
xs.BackColor = Color.Red;
xs.SetBounds(30, 10, 100, 100);
fpSpread1.ActiveSheet.AddShape(xs);
}
private void button1_Click(object sender, System.EventArgs e)
{
//アクティブなシェイプオブジェクトをコピーします
fpSpread1.ActiveSheet.ClipboardCopyShape();
}
private void button2_Click(object sender, System.EventArgs e)
{
//アクティブなシェイプオブジェクトをカットします
fpSpread1.ActiveSheet.ClipboardCutShape();
}
private void button3_Click(object sender, System.EventArgs e)
{
//アクティブなシェイプオブジェクトをペーストします
fpSpread1.ActiveSheet.ClipboardPasteShape();
}
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Xシェイプを追加します
Dim xs As New FarPoint.Win.Spread.DrawingSpace.XShape
xs.Name = "x-01"
xs.BackColor = Color.Red
xs.SetBounds(30, 10, 100, 100)
FpSpread1.ActiveSheet.AddShape(xs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'アクティブなシェイプオブジェクトをコピーします
FpSpread1.ActiveSheet.ClipboardCopyShape()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'アクティブなシェイプオブジェクトをカットします
FpSpread1.ActiveSheet.ClipboardCutShape()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'アクティブなシェイプオブジェクトをペーストします
FpSpread1.ActiveSheet.ClipboardPasteShape()
End Sub
