FarPoint.Win.Chart.HistogramSeries hs = new FarPoint.Win.Chart.HistogramSeries();
hs.SeriesName = "Histogram Sample";
hs.Values.Add(23);
hs.Values.Add(5);
hs.Values.Add(79);
hs.Values.Add(11);
hs.Values.Add(23);
hs.Values.Add(55);
hs.Values.Add(88);
hs.Values.Add(67);
hs.Values.Add(42);
hs.Values.Add(56);
hs.Values.Add(100);
hs.Values.Add(-5);
hs.CategoryNames.Add("First");
hs.CategoryNames.Add("Second");
hs.CategoryNames.Add("Third");
hs.CategoryNames.Add("Fourth");
hs.BinOption.BinType = FarPoint.Win.Chart.BinOption.HistogramBinType.ByCategory;
FarPoint.Win.Chart.YPlotArea plotArea = new FarPoint.Win.Chart.YPlotArea();
plotArea.Location = new PointF(0.2f, 0.2f);
plotArea.Size = new SizeF(0.6f, 0.6f);
plotArea.Series.Add(hs);
FarPoint.Win.Chart.LegendArea legend = new FarPoint.Win.Chart.LegendArea();
legend.Location = new PointF(0.98f, 0.5f);
legend.AlignmentX = 1.0f;
legend.AlignmentY = 0.5f;
FarPoint.Win.Chart.ChartModel model = new FarPoint.Win.Chart.ChartModel();
model.PlotAreas.Add(plotArea);
model.LegendAreas.Add(legend);
FarPoint.Win.Spread.Chart.SpreadChart chart = new FarPoint.Win.Spread.Chart.SpreadChart();
chart.Model = model;
chart.Left = 0;
chart.Top = 150;
chart.Size = new Size(400, 200);
fpSpread1.ActiveSheet.Charts.Add(chart);
Dim hs As New FarPoint.Win.Chart.HistogramSeries()
hs.SeriesName = "Histogram Sample"
hs.Values.Add(23)
hs.Values.Add(5)
hs.Values.Add(79)
hs.Values.Add(11)
hs.Values.Add(23)
hs.Values.Add(55)
hs.Values.Add(88)
hs.Values.Add(67)
hs.Values.Add(42)
hs.Values.Add(56)
hs.Values.Add(100)
hs.Values.Add(-5)
hs.CategoryNames.Add("First")
hs.CategoryNames.Add("Second")
hs.CategoryNames.Add("Third")
hs.CategoryNames.Add("Fourth")
hs.BinOption.BinType = FarPoint.Win.Chart.BinOption.HistogramBinType.ByCategory
Dim plotArea As New FarPoint.Win.Chart.YPlotArea()
plotArea.Location = New PointF(0.2F, 0.2F)
plotArea.Size = New SizeF(0.6F, 0.6F)
plotArea.Series.Add(hs)
Dim legend As New FarPoint.Win.Chart.LegendArea()
legend.Location = New PointF(0.98F, 0.5F)
legend.AlignmentX = 1.0F
legend.AlignmentY = 0.5F
Dim model As New FarPoint.Win.Chart.ChartModel()
model.PlotAreas.Add(plotArea)
model.LegendAreas.Add(legend)
Dim chart As New FarPoint.Win.Spread.Chart.SpreadChart()
chart.Model = model
chart.Left = 0
chart.Top = 150
chart.Size = New Size(400, 200)
FpSpread1.ActiveSheet.Charts.Add(chart)