FarPoint.Web.Spread.ExcelSparklineGroup ea = (FarPoint.Web.Spread.ExcelSparklineGroup)fpSpread1.ActiveSheet.SparklineContainer[0];
ea.Setting = eSetting;
FarPoint.Web.Spread.ExcelSparklineSetting getSetting = ea.GetExcelSetting();
FarPoint.Web.Spread.ExcelSparklineSetting expect = (FarPoint.Web.Spread.ExcelSparklineSetting)ea.Setting;
listBox1.Items.Add(eSetting.AxisColor.ToString());
FpSpread1.Sheets(0).RowCount = 10
FpSpread1.Sheets(0).ColumnCount = 10
FpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "4" + Chr(9) + "5")
FpSpread1.Sheets(0).SetClip(1, 0, 1, 5, "5" + Chr(9) + "4" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
FpSpread1.Sheets(0).SetClip(2, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
Dim es As New FarPoint.Web.Spread.ExcelSparkline(0, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(0, 0, 1, 5))
Dim es1 As New FarPoint.Web.Spread.ExcelSparkline(1, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(1, 0, 1, 5))
Dim es2 As New FarPoint.Web.Spread.ExcelSparkline(2, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(2, 0, 1, 5))
Dim esg As New FarPoint.Web.Spread.ExcelSparklineGroup(New FarPoint.Web.Spread.ExcelSparklineSetting(), FarPoint.Web.Spread.SparklineType.Column)
esg.Add(es)
esg.Add(es1)
esg.Add(es2)
FpSpread1.Sheets(0).SparklineContainer.Add(esg)
Dim eSetting As New FarPoint.Web.Spread.ExcelSparklineSetting()
eSetting.ShowMarkers = True
eSetting.AxisColor = Color.Cyan
eSetting.DisplayEmptyCellsAs = FarPoint.Web.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.Web.Spread.SparklineAxisMinMax.[Custom]
eSetting.MinAxisType = FarPoint.Web.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 ea As FarPoint.Web.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.ActiveSheet.SparklineContainer(0), FarPoint.Web.Spread.ExcelSparklineGroup)
ea.Setting = eSetting
Dim getSetting As FarPoint.Web.Spread.ExcelSparklineSetting = ea.GetExcelSetting()
Dim expect As FarPoint.Web.Spread.ExcelSparklineSetting = DirectCast(ea.Setting, FarPoint.Web.Spread.ExcelSparklineSetting)
ListBox1.Items.Add(eSetting.AxisColor.ToString())