/
Form1.vb
59 lines (55 loc) · 2.68 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraCharts
' ...
Namespace ConstLines
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
' Create an empty chart.
Dim chartControl1 As ChartControl = New ChartControl()
' Create a bar series and add points to it.
Dim series1 As Series = New Series("Series 1", ViewType.Spline)
series1.Points.Add(New SeriesPoint("A", New Double() {10}))
series1.Points.Add(New SeriesPoint("B", New Double() {2}))
series1.Points.Add(New SeriesPoint("C", New Double() {17}))
series1.Points.Add(New SeriesPoint("D", New Double() {4}))
series1.Points.Add(New SeriesPoint("E", New Double() {17}))
series1.Points.Add(New SeriesPoint("F", New Double() {10}))
series1.Points.Add(New SeriesPoint("G", New Double() {15}))
' Add the series to the chart.
chartControl1.Series.Add(series1)
' Cast the chart's diagram to the XYDiagram type, to access its axes.
Dim diagram As XYDiagram = TryCast(chartControl1.Diagram, XYDiagram)
' Create a constant line.
Dim constantLine1 As ConstantLine = New ConstantLine("Constant Line 1")
diagram.AxisY.ConstantLines.Add(constantLine1)
' Define its axis value.
constantLine1.AxisValue = 7
' Customize the behavior of the constant line.
constantLine1.Visible = True
constantLine1.ShowInLegend = True
constantLine1.LegendText = "Some Threshold"
constantLine1.ShowBehind = False
' Customize the constant line's title.
constantLine1.Title.Visible = True
constantLine1.Title.Text = "Constant Line Title"
constantLine1.Title.TextColor = Color.Red
constantLine1.Title.EnableAntialiasing = DevExpress.Utils.DefaultBoolean.False
constantLine1.Title.Font = New Font(Font.FontFamily.Name, 14, FontStyle.Bold)
constantLine1.Title.ShowBelowLine = True
constantLine1.Title.Alignment = ConstantLineTitleAlignment.Far
' Customize the appearance of the constant line.
constantLine1.Color = Color.Red
constantLine1.LineStyle.DashStyle = DashStyle.Dash
constantLine1.LineStyle.Thickness = 2
' Add the chart to the form.
chartControl1.Dock = DockStyle.Fill
Me.Controls.Add(chartControl1)
End Sub
End Class
End Namespace