The following example demonstrates how to create a DevExpress.XtraCharts.ChartControl with a series of the PointSeriesView type, and add this chart to a form at runtime. Before proceeding with this example, first create a Windows Forms Application in Visual Studio, and include all necessary assemblies to the References list of your project.
Then, add the following code to the Form.Load event handler.
C# |
using System;
using System.Windows.Forms;
using DevExpress.XtraCharts;
private void Form1_Load(object sender, EventArgs e) {
ChartControl pointChart = new ChartControl();
Series series1 = new Series("Series 1", ViewType.Point);
series1.ArgumentScaleType = ScaleType.Numerical;
series1.Points.Add(new SeriesPoint(1, 10));
series1.Points.Add(new SeriesPoint(2, 22));
series1.Points.Add(new SeriesPoint(3, 14));
series1.Points.Add(new SeriesPoint(4, 27));
series1.Points.Add(new SeriesPoint(5, 15));
series1.Points.Add(new SeriesPoint(6, 28));
series1.Points.Add(new SeriesPoint(7, 15));
series1.Points.Add(new SeriesPoint(8, 33));
pointChart.Series.Add(series1);
PointSeriesView myView1 = (PointSeriesView)series1.View;
myView1.PointMarkerOptions.Kind = MarkerKind.Star;
myView1.PointMarkerOptions.StarPointCount = 5;
myView1.PointMarkerOptions.Size = 20;
((XYDiagram)pointChart.Diagram).EnableAxisXZooming = true;
pointChart.Legend.Visible = false;
pointChart.Titles.Add(new ChartTitle());
pointChart.Titles[0].Text = "A Point Chart";
pointChart.Dock = DockStyle.Fill;
this.Controls.Add(pointChart);
}
|
VB |
Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraCharts
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
Handles MyBase.Load
Dim pointChart As New ChartControl()
Dim series1 As New Series("Series 1", ViewType.Point)
series1.ArgumentScaleType = ScaleType.Numerical
series1.Points.Add(New SeriesPoint(1, 10))
series1.Points.Add(New SeriesPoint(2, 22))
series1.Points.Add(New SeriesPoint(3, 14))
series1.Points.Add(New SeriesPoint(4, 27))
series1.Points.Add(New SeriesPoint(5, 15))
series1.Points.Add(New SeriesPoint(6, 28))
series1.Points.Add(New SeriesPoint(7, 15))
series1.Points.Add(New SeriesPoint(8, 33))
pointChart.Series.Add(series1)
Dim myView1 As PointSeriesView = CType(series1.View, PointSeriesView)
myView1.PointMarkerOptions.Kind = MarkerKind.Star
myView1.PointMarkerOptions.StarPointCount = 5
myView1.PointMarkerOptions.Size = 20
CType(pointChart.Diagram, XYDiagram).EnableAxisXZooming = True
pointChart.Legend.Visible = False
pointChart.Titles.Add(New ChartTitle())
pointChart.Titles(0).Text = "A Point Chart"
pointChart.Dock = DockStyle.Fill
Me.Controls.Add(pointChart)
End Sub
|