FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.DrawingSpace 名前空間 > PSGradient クラス : ResetStyle メソッド |
'Declaration Public Overridable Sub ResetStyle()
'使用法 Dim instance As PSGradient instance.ResetStyle()
public virtual void ResetStyle()
FarPoint.Win.Spread.DrawingSpace.PSGradient g = new FarPoint.Win.Spread.DrawingSpace.PSGradient(); g.Name = "custom"; g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter; g.Sections[0].Color = Color.Navy; g.Sections[0].AlphaBlend = 128; g.Sections[1].Color = Color.Magenta; g.Sections[1].AlphaBlend = 255; FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(fpSpread1); arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth; arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical; arrow.Anchor = 20; arrow.SetBounds(15, 15, 50, 50); arrow.Gradient = g; fpSpread1.ActiveSheet.AddShape(arrow); DialogResult dlg; dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { g.ResetStyle() }
Dim g As New FarPoint.Win.Spread.DrawingSpace.PSGradient g.Name = "custom" g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter g.Sections(0).Color = Color.Navy g.Sections(0).AlphaBlend = 128 g.Sections(1).Color = Color.Magenta g.Sections(1).AlphaBlend = 255 Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape(FpSpread1) arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical arrow.Anchor = 20 arrow.SetBounds(15, 15, 50, 50) arrow.Gradient = g FpSpread1.ActiveSheet.AddShape(arrow) Dim dlg As DialogResult dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then g.ResetStyle() End If