FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.DrawingSpace 名前空間 > CustomShape クラス : Shape プロパティ |
'Declaration Public Overrides Property Shape As Object
'使用法 Dim instance As CustomShape Dim value As Object instance.Shape = value value = instance.Shape
public override object Shape {get; set;}
System.Drawing.Point[] pts = {new System.Drawing.Point(50, 0), new System.Drawing.Point(0, 100), new System.Drawing.Point(40, 100), new System.Drawing.Point(5, 200), new System.Drawing.Point(80, 80), new System.Drawing.Point(40, 80), new System.Drawing.Point(80, 0), new System.Drawing.Point(50, 0)}; System.Drawing.Drawing2D.GraphicsPath gpath = new System.Drawing.Drawing2D.GraphicsPath(); gpath.AddPolygon(pts); FarPoint.Win.Spread.DrawingSpace.CustomShape custom = new FarPoint.Win.Spread.DrawingSpace.CustomShape(); custom.Parent = fpSpread1; // shape should be set before bounds custom.Shape = gpath; custom.SetBounds(10, 10, 30, 60); custom.BackColor = System.Drawing.Color.Yellow; custom.Name = "customLightningBolt"; fpSpread1.ActiveSheet.AddShape(custom);
Dim pts As System.Drawing.Point() = {New System.Drawing.Point(50, 0), _ New System.Drawing.Point(0, 100), _ New System.Drawing.Point(40, 100), _ New System.Drawing.Point(5, 200), _ New System.Drawing.Point(80, 80), _ New System.Drawing.Point(40, 80), _ New System.Drawing.Point(80, 0), _ New System.Drawing.Point(50, 0)} Dim gpath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath() gpath.AddPolygon(pts) Dim custom As New FarPoint.Win.Spread.DrawingSpace.CustomShape custom.Parent = FpSpread1 ' shape should be set before bounds custom.Shape = gpath custom.SetBounds(10, 10, 30, 60) custom.BackColor = System.Drawing.Color.Yellow custom.Name = "customLightningBolt" FpSpread1.ActiveSheet.AddShape(custom)