' データテーブルを作成します
Dim dt As New DataTable("Product Comparison")
' データテーブルに列を追加します
dt.Columns.Add("Beverages", GetType(String))
dt.Columns.Add("Unit Price", GetType(Integer))
dt.Columns.Add("Units In Stock", GetType(Integer))
dt.Columns.Add("Units On Order", GetType(Integer))
' データテーブルに行を追加します
dt.Rows.Add("紅茶", 18, 39, 40)
dt.Rows.Add("コーヒー", 19, 17, 70)
dt.Rows.Add("コクテル", 10, 13, 30)
dt.Rows.Add("モクテル", 22, 53, 20)
dt.Rows.Add("ソフトドリンク", 21, 120, 70)
dt.Rows.Add("ミネラルウォーター", 25, 90, 40)
' データ系列コレクションをクリアします
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()
' データ系列コレクションにデータ系列を追加します
FlexChart1.Series.Add(series1)
FlexChart1.Series.Add(series2)
FlexChart1.Series.Add(series3)
' チャートのデータソースを指定します
FlexChart1.DataSource = dt
' X軸を結合します
FlexChart1.BindingX = "Beverages"
' Y軸を結合します
series1.Binding = "Unit Price"
series2.Binding = "Units In Stock"
series3.Binding = "Units On Order"
' 系列の名前を指定します
series1.Name = "単位価格"
series2.Name = "在庫にあり単位"
series3.Name = "注目中の単位"
' チャートタイプを横棒グラフに設定します
FlexChart1.ChartType = C1.Chart.ChartType.Bar