' データ系列コレクションをクリアします
flexChart1.Series.Clear()
' データ系列を作成します
Dim series1 As New C1.Win.Chart.Series()
Dim series2 As New C1.Win.Chart.Series()
Dim series3 As New C1.Win.Chart.Series()
' データ系列にデータポイントを追加します
series1.BindingX = "X"
series1.Binding = "Y"
series1.DataSource = New System.Drawing.Point() {
New System.Drawing.Point(2011, 30),
New System.Drawing.Point(2012, 50),
New System.Drawing.Point(2013, 40),
New System.Drawing.Point(2014, 60),
New System.Drawing.Point(2015, 65)}
series1.Name = "収入"
series2.BindingX = "X"
series2.Binding = "Y"
series2.DataSource = New System.Drawing.Point() {
New System.Drawing.Point(2011, 15),
New System.Drawing.Point(2012, 30),
New System.Drawing.Point(2013, 30),
New System.Drawing.Point(2014, 40),
New System.Drawing.Point(2015, 35)}
series2.Name = "消費"
series3.BindingX = "X"
series3.Binding = "Y"
series3.DataSource = New System.Drawing.Point() {
New System.Drawing.Point(2011, 10),
New System.Drawing.Point(2012, 20),
New System.Drawing.Point(2013, 10),
New System.Drawing.Point(2014, 20),
New System.Drawing.Point(2015, 30)}
series3.Name = "利益"
' データ系列コレクションにデータ系列を追加します
flexChart1.Series.Add(series1)
flexChart1.Series.Add(series2)
flexChart1.Series.Add(series3)
' チャートタイプを縦棒グラフに設定します
flexChart1.ChartType = C1.Chart.ChartType.Column