FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > ExcelSparkline クラス : Clone メソッド |
'Declaration Public Overrides Function Clone() As Object
'使用法 Dim instance As ExcelSparkline Dim value As Object value = instance.Clone()
public override object Clone()
FarPoint.Win.Spread.ExcelSparklineSetting eSetting = new FarPoint.Win.Spread.ExcelSparklineSetting(); eSetting.ShowMarkers = true; eSetting.AxisColor = Color.Cyan; eSetting.DateAxis = true; eSetting.DisplayEmptyCellsAs = FarPoint.Win.Spread.Chart.EmptyValueStyle.Gaps; eSetting.DisplayHidden = true; eSetting.DisplayXAxis = true; eSetting.FirstMarkerColor = Color.AliceBlue; eSetting.Formula = "Sheet1!$A$4:$E$4"; eSetting.HighMarkerColor = Color.Honeydew; eSetting.LastMarkerColor = Color.Lavender; eSetting.LineWeight = 2; eSetting.LowMarkerColor = Color.LawnGreen; eSetting.ManualMax = 3; eSetting.ManualMin = 1; eSetting.MarkersColor = Color.Magenta; eSetting.MaxAxisType = FarPoint.Win.Spread.SparklineAxisMinMax.Custom; eSetting.MinAxisType = FarPoint.Win.Spread.SparklineAxisMinMax.Individual; eSetting.NegativeColor = Color.NavajoWhite; eSetting.RightToLeft = true; eSetting.SeriesColor = Color.SeaGreen; eSetting.ShowFirst = true; eSetting.ShowHigh = true; eSetting.ShowLast = true; eSetting.ShowLow = true; eSetting.ShowNegative = true; FarPoint.Win.Spread.ExcelSparklineSetting ess = eSetting; FarPoint.Win.Spread.ExcelSparklineSetting ess1 = (FarPoint.Win.Spread.ExcelSparklineSetting)ess.Clone();
Dim eSetting As New FarPoint.Win.Spread.ExcelSparklineSetting() eSetting.ShowMarkers = True eSetting.AxisColor = Color.Cyan eSetting.DateAxis = True eSetting.DisplayEmptyCellsAs = FarPoint.Win.Spread.Chart.EmptyValueStyle.Gaps eSetting.DisplayHidden = True eSetting.DisplayXAxis = True eSetting.FirstMarkerColor = Color.AliceBlue eSetting.Formula = "Sheet1!$A$4:$E$4" eSetting.HighMarkerColor = Color.Honeydew eSetting.LastMarkerColor = Color.Lavender eSetting.LineWeight = 2 eSetting.LowMarkerColor = Color.LawnGreen eSetting.ManualMax = 3 eSetting.ManualMin = 1 eSetting.MarkersColor = Color.Magenta eSetting.MaxAxisType = FarPoint.Win.Spread.SparklineAxisMinMax.[Custom] eSetting.MinAxisType = FarPoint.Win.Spread.SparklineAxisMinMax.Individual eSetting.NegativeColor = Color.NavajoWhite eSetting.RightToLeft = True eSetting.SeriesColor = Color.SeaGreen eSetting.ShowFirst = True eSetting.ShowHigh = True eSetting.ShowLast = True eSetting.ShowLow = True eSetting.ShowNegative = True Dim ess As FarPoint.Win.Spread.ExcelSparklineSetting = eSetting Dim ess1 As FarPoint.Win.Spread.ExcelSparklineSetting = DirectCast(ess.Clone(), FarPoint.Win.Spread.ExcelSparklineSetting)