FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス : GetSparkline(Int32,Int32) メソッド |
'Declaration Public Function GetSparkline( _ ByVal row As Integer, _ ByVal column As Integer _ ) As Sparkline
fpSpread1.Sheets[0].SetClip(0, 0, 1, 5, "1\t2\t3\t4\t5"); FarPoint.Win.Spread.ExcelSparklineSetting eSetting = new FarPoint.Win.Spread.ExcelSparklineSetting(); eSetting.ShowMarkers = true; eSetting.AxisColor = Color.Cyan; FarPoint.Win.Spread.ExcelSparkline es = new FarPoint.Win.Spread.ExcelSparkline(0, 5, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5)); FarPoint.Win.Spread.ExcelSparklineSetting est = eSetting; FarPoint.Win.Spread.ExcelSparklineGroup esg = new FarPoint.Win.Spread.ExcelSparklineGroup(est, FarPoint.Win.Spread.SparklineType.Column); esg.Add(es); fpSpread1.Sheets[0].SparklineContainer.Add(esg); FarPoint.Win.Spread.Sparkline sl = fpSpread1.Sheets[0].GetSparkline(0, 5);
fpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" & vbTab & "2" & vbTab & "3" & vbTab & "4" & vbTab & "5") Dim eSetting As New FarPoint.Win.Spread.ExcelSparklineSetting() eSetting.ShowMarkers = True eSetting.AxisColor = Color.Cyan Dim es As New FarPoint.Win.Spread.ExcelSparkline(0, 5, fpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5)) Dim est As FarPoint.Win.Spread.ExcelSparklineSetting = eSetting Dim esg As New FarPoint.Win.Spread.ExcelSparklineGroup(est, FarPoint.Win.Spread.SparklineType.Column) esg.Add(es) fpSpread1.Sheets(0).SparklineContainer.Add(esg) Dim sl As FarPoint.Win.Spread.Sparkline = fpSpread1.Sheets(0).GetSparkline(0, 5)