This repository has been archived by the owner on Sep 25, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
64 lines (52 loc) · 2.66 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
60
61
62
63
64
Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraCharts
' ...
Namespace Series_SideBySideRangeBarChart
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
' Create a new chart.
Dim rangeBarChart As New ChartControl()
' Create two range bar series.
Dim series1 As New Series("Series 1", ViewType.SideBySideRangeBar)
Dim series2 As New Series("Series 2", ViewType.SideBySideRangeBar)
' Add points to them.
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))
' Add both series to the chart.
rangeBarChart.Series.AddRange(New Series() { series1, series2 })
' Access the view-type-specific options of the series.
Dim myView1 As SideBySideRangeBarSeriesView = CType(series1.View, SideBySideRangeBarSeriesView)
myView1.MaxValueMarkerVisibility = DevExpress.Utils.DefaultBoolean.True
myView1.MinValueMarkerVisibility = DevExpress.Utils.DefaultBoolean.True
myView1.MinValueMarker.Kind = MarkerKind.Circle
myView1.MinValueMarker.Kind = MarkerKind.Circle
myView1.MaxValueMarker.Kind = MarkerKind.Star
myView1.MaxValueMarker.StarPointCount = 5
CType(series2.View, SideBySideRangeBarSeriesView).BarWidth = 0.4
' Access the type-specific options of the diagram.
CType(rangeBarChart.Diagram, XYDiagram).Rotated = True
' Hide the legend (if necessary).
rangeBarChart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.False
' Add a title to the chart (if necessary).
rangeBarChart.Titles.Add(New ChartTitle())
rangeBarChart.Titles(0).Text = "Side-by-Side Range Bar Chart"
rangeBarChart.Titles(0).WordWrap = True
' Add the chart to the form.
rangeBarChart.Dock = DockStyle.Fill
Me.Controls.Add(rangeBarChart)
End Sub
End Class
End Namespace