MESCIUS SPREAD for Windows Forms 15.0J サンプルコード集
フォーム上にチャートを追加する

Visual StudioのツールボックスからFpChartコントロールをフォームにドラッグすることで、フォーム上にチャートを追加できます。

  • FpChartコントロールはFarPoint.Win.Chart.dllに含まれています。

【デザイン時】Visual Studioツールボックス

【デザイン時】Visual Studioデザイン画面:FpChartをフォームにドラッグして配置

【実行例】

 

 private void Form1_Load(object sender, System.EventArgs e)
 {
    // シリーズを設定します            
    FarPoint.Win.Chart.LineSeries series1 = new FarPoint.Win.Chart.LineSeries();
    series1.SeriesName = "S1";
    series1.CategoryNames.Add("Q1");
    series1.CategoryNames.Add("Q2");
    series1.CategoryNames.Add("Q3");
    series1.CategoryNames.Add("Q4");
    series1.Values.Add(50.0);
    series1.Values.Add(30.0);
    series1.Values.Add(20.0);
    series1.Values.Add(40.0);
    FarPoint.Win.Chart.LineSeries series2 = new FarPoint.Win.Chart.LineSeries();
    series2.SeriesName = "S2";
    series2.CategoryNames.Add("Q1");
    series2.CategoryNames.Add("Q2");
    series2.CategoryNames.Add("Q3");
    series2.CategoryNames.Add("Q4");
    series2.Values.Add(30.0);
    series2.Values.Add(15.0);
    series2.Values.Add(50.0);
    series2.Values.Add(20.0);
    FarPoint.Win.Chart.LineSeries series3 = new FarPoint.Win.Chart.LineSeries();
    series3.SeriesName = "S3";
    series3.CategoryNames.Add("Q1");
    series3.CategoryNames.Add("Q2");
    series3.CategoryNames.Add("Q3");
    series3.CategoryNames.Add("Q4");
    series3.Values.Add(10.0);
    series3.Values.Add(40.0);
    series3.Values.Add(25.0);
    series3.Values.Add(25.0);
    // 折れ線グラフを設定します
    FarPoint.Win.Chart.YPlotArea plotArea = new FarPoint.Win.Chart.YPlotArea();
    plotArea.Location = new PointF(0.2f, 0.2f);
    plotArea.Size = new SizeF(0.55f, 0.6f);
    plotArea.Series.Add(series1);
    plotArea.Series.Add(series2);
    plotArea.Series.Add(series3);
    // ラベルを設定します
    FarPoint.Win.Chart.LabelArea label = new FarPoint.Win.Chart.LabelArea();
    label.Text = "四半期別";
    label.Location = new PointF(0.5f, 0.02f);
    label.AlignmentX = 0.5f;
    label.AlignmentY = 0f;
    // 凡例を設定します
    FarPoint.Win.Chart.LegendArea legend = new FarPoint.Win.Chart.LegendArea();
    legend.Location = new PointF(0.98f, 0.5f);
    legend.AlignmentX = 1f;
    legend.AlignmentY = 0.5f;
    // チャートモデルに各情報を追加します
    FarPoint.Win.Chart.ChartModel model = new FarPoint.Win.Chart.ChartModel();
    model.LabelAreas.Add(label);
    model.LegendAreas.Add(legend);
    model.PlotAreas.Add(plotArea);
    // FpChartコントロールにチャートモデルを設定します
    fpChart1.Model = model;
 }
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' シリーズを設定します
    Dim series1 As New FarPoint.Win.Chart.LineSeries()
    series1.SeriesName = "S1"
    series1.CategoryNames.Add("Q1")
    series1.CategoryNames.Add("Q2")
    series1.CategoryNames.Add("Q3")
    series1.CategoryNames.Add("Q4")
    series1.Values.Add(50.0)
    series1.Values.Add(30.0)
    series1.Values.Add(20.0)
    series1.Values.Add(40.0)
    Dim series2 As New FarPoint.Win.Chart.LineSeries()
    series2.SeriesName = "S2"
    series2.CategoryNames.Add("Q1")
    series2.CategoryNames.Add("Q2")
    series2.CategoryNames.Add("Q3")
    series2.CategoryNames.Add("Q4")
    series2.Values.Add(30.0)
    series2.Values.Add(15.0)
    series2.Values.Add(50.0)
    series2.Values.Add(20.0)
    Dim series3 As New FarPoint.Win.Chart.LineSeries()
    series3.SeriesName = "S3"
    series3.CategoryNames.Add("Q1")
    series3.CategoryNames.Add("Q2")
    series3.CategoryNames.Add("Q3")
    series3.CategoryNames.Add("Q4")
    series3.Values.Add(10.0)
    series3.Values.Add(40.0)
    series3.Values.Add(25.0)
    series3.Values.Add(25.0)
    ' 折れ線グラフを設定します
    Dim plotArea As New FarPoint.Win.Chart.YPlotArea()
    plotArea.Location = New PointF(0.2F, 0.2F)
    plotArea.Size = New SizeF(0.55F, 0.6F)
    plotArea.Series.Add(series1)
    plotArea.Series.Add(series2)
    plotArea.Series.Add(series3)
    ' ラベルを設定します
    Dim label As New FarPoint.Win.Chart.LabelArea()
    label.Text = "四半期別"
    label.Location = New PointF(0.5F, 0.02F)
    label.AlignmentX = 0.5F
    label.AlignmentY = 0.0F
    ' 凡例を設定します
    Dim legend As New FarPoint.Win.Chart.LegendArea()
    legend.Location = New PointF(0.98F, 0.5F)
    legend.AlignmentX = 1.0F
    legend.AlignmentY = 0.5F
    ' チャートモデルに各情報を追加します
    Dim model As New FarPoint.Win.Chart.ChartModel()
    model.LabelAreas.Add(label)
    model.LegendAreas.Add(legend)
    model.PlotAreas.Add(plotArea)
    ' FpChartコントロールにチャートモデルを設定します
    FpChart1.Model = model
 End Sub

 

 


© MESCIUS inc. All rights reserved.