C#:Form1.cs |
using DevExpress.Utils;
using DevExpress.XtraCharts;
using System;
using System.Windows.Forms;
namespace WindowsFormsApplication2 {
public partial class Form1 : Form {
public Form1() {
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e) {
ChartControl chart = new ChartControl();
chart.Dock = DockStyle.Fill;
this.Controls.AddRange(new Control[] { chart });
Series series1 = new Series("Bar", ViewType.Bar);
series1.Points.Add(new SeriesPoint("A", new double[] { 10 }));
series1.Points.Add(new SeriesPoint("B", new double[] { 32 }));
series1.Points.Add(new SeriesPoint("C", new double[] { 44 }));
series1.Points.Add(new SeriesPoint("D", new double[] { 67 }));
Series series2 = new Series("Line", ViewType.Line);
series2.Points.Add(new SeriesPoint("A", new double[] { 15 }));
series2.Points.Add(new SeriesPoint("B", new double[] { 18 }));
series2.Points.Add(new SeriesPoint("C", new double[] { 21 }));
series2.Points.Add(new SeriesPoint("D", new double[] { 27 }));
chart.Series.Add(series1);
chart.Series.Add(series2);
XYDiagram diagram = (XYDiagram)chart.Diagram;
diagram.Panes.Add(new XYDiagramPane("My Pane"));
LineSeriesView myView = (LineSeriesView)series2.View;
myView.Pane = diagram.Panes[0];
diagram.AxisX.WholeRange.Auto = false;
diagram.AxisX.WholeRange.SetMinMaxValues("A", "D");
diagram.AxisY.WholeRange.Auto = false;
diagram.AxisY.WholeRange.SetMinMaxValues(0, 70);
diagram.AxisX.VisualRange.Auto = false;
diagram.AxisX.VisualRange.SetMinMaxValues("B", "C");
diagram.AxisY.VisualRange.Auto = false;
diagram.AxisY.VisualRange.SetMinMaxValues(7, 50);
diagram.EnableAxisXScrolling = true;
diagram.EnableAxisYScrolling = false;
diagram.DefaultPane.EnableAxisXScrolling = DefaultBoolean.Default;
diagram.Panes[0].EnableAxisXScrolling = DefaultBoolean.False;
diagram.Panes[0].EnableAxisYScrolling = DefaultBoolean.True;
diagram.ScrollingOptions.UseKeyboard = false;
diagram.ScrollingOptions.UseMouse = false;
diagram.ScrollingOptions.UseScrollBars = true;
}
}
}
|
VB:Form1.vb |
Imports DevExpress.Utils
Imports DevExpress.XtraCharts
Imports System
Imports System.Windows.Forms
Namespace WindowsFormsApplication2
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim chart As New ChartControl()
chart.Dock = DockStyle.Fill
Me.Controls.AddRange(New Control() { chart })
Dim series1 As New Series("Bar", ViewType.Bar)
series1.Points.Add(New SeriesPoint("A", New Double() { 10 }))
series1.Points.Add(New SeriesPoint("B", New Double() { 32 }))
series1.Points.Add(New SeriesPoint("C", New Double() { 44 }))
series1.Points.Add(New SeriesPoint("D", New Double() { 67 }))
Dim series2 As New Series("Line", ViewType.Line)
series2.Points.Add(New SeriesPoint("A", New Double() { 15 }))
series2.Points.Add(New SeriesPoint("B", New Double() { 18 }))
series2.Points.Add(New SeriesPoint("C", New Double() { 21 }))
series2.Points.Add(New SeriesPoint("D", New Double() { 27 }))
chart.Series.Add(series1)
chart.Series.Add(series2)
Dim diagram As XYDiagram = CType(chart.Diagram, XYDiagram)
diagram.Panes.Add(New XYDiagramPane("My Pane"))
Dim myView As LineSeriesView = CType(series2.View, LineSeriesView)
myView.Pane = diagram.Panes(0)
diagram.AxisX.WholeRange.Auto = False
diagram.AxisX.WholeRange.SetMinMaxValues("A", "D")
diagram.AxisY.WholeRange.Auto = False
diagram.AxisY.WholeRange.SetMinMaxValues(0, 70)
diagram.AxisX.VisualRange.Auto = False
diagram.AxisX.VisualRange.SetMinMaxValues("B", "C")
diagram.AxisY.VisualRange.Auto = False
diagram.AxisY.VisualRange.SetMinMaxValues(7, 50)
diagram.EnableAxisXScrolling = True
diagram.EnableAxisYScrolling = False
diagram.DefaultPane.EnableAxisXScrolling = DefaultBoolean.Default
diagram.Panes(0).EnableAxisXScrolling = DefaultBoolean.False
diagram.Panes(0).EnableAxisYScrolling = DefaultBoolean.True
diagram.ScrollingOptions.UseKeyboard = False
diagram.ScrollingOptions.UseMouse = False
diagram.ScrollingOptions.UseScrollBars = True
End Sub
End Class
End Namespace
|