FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.DrawingSpace 名前空間 > GradientSection クラス > GradientSection コンストラクタ : GradientSection コンストラクタ(Color,Int32,Int32) |
'Declaration Public Function New( _ ByVal color As Color, _ ByVal amount As Integer, _ ByVal alphaBlend As Integer _ )
'使用法 Dim color As Color Dim amount As Integer Dim alphaBlend As Integer Dim instance As New GradientSection(color, amount, alphaBlend)
FarPoint.Win.Spread.DrawingSpace.GradientSection grd = new FarPoint.Win.Spread.DrawingSpace.GradientSection(Color.Empty, 50, 255); grd.Color = Color.Red; FarPoint.Win.Spread.DrawingSpace.RectangleShape rs = new FarPoint.Win.Spread.DrawingSpace.RectangleShape(); rs.Name = "GradientRect"; rs.Gradient.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialFromCenter; rs.Gradient.Sections[0] = grd; fpSpread1.ActiveSheet.AddShape(rs);
Dim grd As New FarPoint.Win.Spread.DrawingSpace.GradientSection(Color.Empty, 50, 255) grd.Color = Color.Red Dim rs As New FarPoint.Win.Spread.DrawingSpace.RectangleShape rs.Name = "GradientRect" rs.Gradient.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialFromCenter rs.Gradient.Sections(0) = grd FpSpread1.ActiveSheet.AddShape(rs)