C# |
using System;
using System.Drawing;
using System.Windows.Forms;
using DevExpress.XtraCharts;
private void Form1_Load(object sender, EventArgs e) {
ChartControl rangeBarChart = new ChartControl();
Series series1 = new Series("Series 1", ViewType.SideBySideRangeBar);
Series series2 = new Series("Series 2", ViewType.SideBySideRangeBar);
series1.Points.Add(new SeriesPoint("A", 10, 15));
series1.Points.Add(new SeriesPoint("B", 4, 7));
series1.Points.Add(new SeriesPoint("C", 3, 13));
series1.Points.Add(new SeriesPoint("D", 2, 11));
series1.Points.Add(new SeriesPoint("E", 1, 8));
series2.Points.Add(new SeriesPoint("A", 9, 13));
series2.Points.Add(new SeriesPoint("B", 5, 10));
series2.Points.Add(new SeriesPoint("C", 1, 9));
series2.Points.Add(new SeriesPoint("D", 3, 7));
series2.Points.Add(new SeriesPoint("E", 2, 10));
rangeBarChart.Series.AddRange(new Series[] { series1, series2 });
SideBySideRangeBarSeriesView myView1 = (SideBySideRangeBarSeriesView)series1.View;
myView1.MaxValueMarker.Visible = true;
myView1.MinValueMarker.Visible = true;
myView1.MinValueMarker.Kind = MarkerKind.Circle;
myView1.MaxValueMarker.Kind = MarkerKind.Star;
myView1.MaxValueMarker.StarPointCount = 5;
((SideBySideRangeBarSeriesView)series2.View).BarWidth = 0.4;
((XYDiagram)rangeBarChart.Diagram).EnableAxisXZooming = true;
rangeBarChart.Legend.Visible = false;
rangeBarChart.Titles.Add(new ChartTitle());
rangeBarChart.Titles[0].Text = "A Side-by-Side Range Bar Chart";
rangeBarChart.Titles[0].WordWrap = true;
rangeBarChart.Dock = DockStyle.Fill;
this.Controls.Add(rangeBarChart);
}
|
VB |
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraCharts
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
Handles MyBase.Load
Dim rangeBarChart As New ChartControl()
Dim series1 As New Series("Series 1", ViewType.SideBySideRangeBar)
Dim series2 As New Series("Series 2", ViewType.SideBySideRangeBar)
series1.Points.Add(New SeriesPoint("A", 10, 15))
series1.Points.Add(New SeriesPoint("B", 4, 7))
series1.Points.Add(New SeriesPoint("C", 3, 13))
series1.Points.Add(New SeriesPoint("D", 2, 11))
series1.Points.Add(New SeriesPoint("E", 1, 8))
series2.Points.Add(New SeriesPoint("A", 9, 13))
series2.Points.Add(New SeriesPoint("B", 5, 10))
series2.Points.Add(New SeriesPoint("C", 1, 9))
series2.Points.Add(New SeriesPoint("D", 3, 7))
series2.Points.Add(New SeriesPoint("E", 2, 10))
rangeBarChart.Series.AddRange(New Series() { series1, series2 })
Dim myView1 As SideBySideRangeBarSeriesView = CType(series1.View, SideBySideRangeBarSeriesView)
myView1.MaxValueMarker.Visible = True
myView1.MinValueMarker.Visible = True
myView1.MinValueMarker.Kind = MarkerKind.Circle
myView1.MaxValueMarker.Kind = MarkerKind.Star
myView1.MaxValueMarker.StarPointCount = 5
CType(series2.View, SideBySideRangeBarSeriesView).BarWidth = 0.4
CType(rangeBarChart.Diagram, XYDiagram).EnableAxisXZooming = True
rangeBarChart.Legend.Visible = False
rangeBarChart.Titles.Add(New ChartTitle())
rangeBarChart.Titles(0).Text = "A Side-by-Side Range Bar Chart"
rangeBarChart.Titles(0).WordWrap = True
rangeBarChart.Dock = DockStyle.Fill
Me.Controls.Add(rangeBarChart)
End Sub
|