private void Form1_Load(object sender, System.EventArgs e)
{
//Arrowシェイプを追加します
FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape();
arrow.Name = "Arrow-01";
arrow.BackColor = Color.Red;
arrow.AlphaBlendBackColor = 90;
arrow.ShadowColor = Color.Blue;
arrow.AlphaBlendShadowColor = 90;
arrow.ShadowDirection = FarPoint.Win.Spread.DrawingSpace.ShadowDirection.BottomRight;
arrow.SetBounds(10, 10, 90, 60);
fpSpread1.ActiveSheet.AddShape(arrow);
}
private void button1_Click(object sender, System.EventArgs e)
{
//Arrowシェイプを削除します
fpSpread1.ActiveSheet.RemoveShape("Arrow-01");
}
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Arrowシェイプを追加します
Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape
arrow.Name = "Arrow-01"
arrow.BackColor = Color.Red
arrow.AlphaBlendBackColor = 90
arrow.ShadowColor = Color.Blue
arrow.AlphaBlendShadowColor = 90
arrow.ShadowDirection = FarPoint.Win.Spread.DrawingSpace.ShadowDirection.BottomRight
arrow.SetBounds(10, 10, 90, 60)
FpSpread1.ActiveSheet.AddShape(arrow)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Arrowシェイプを削除します
FpSpread1.ActiveSheet.RemoveShape("Arrow-01")
End Sub