MESCIUS SPREAD for Windows Forms 15.0J サンプルコード集
チャートを追加する(シリーズにデータを直接指定)

シリーズのValuesプロパティにデータを直接設定することにより、シート上のデータを使用せずにチャートオブジェクトを配置させることができます。

【実行例】

チャート

 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);

   // SPREADチャートにチャートモデルを設定します
   FarPoint.Win.Spread.Chart.SpreadChart chart = new FarPoint.Win.Spread.Chart.SpreadChart();
   chart.Size = new Size(250, 200);
   chart.Location = new Point(10, 10);
   chart.Model = model;

   // シートにSPREADチャートを追加します
   fpSpread1.Sheets[0].Charts.Add(chart);

 }
 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)

   ' SPREADチャートにチャートモデルを設定します
   Dim chart As New FarPoint.Win.Spread.Chart.SpreadChart()
   chart.Size = New Size(250, 200)
   chart.Location = New Point(10, 10)
   chart.Model = model

   ' シートにSPREADチャートを追加します
   FpSpread1.Sheets(0).Charts.Add(chart)

 End Sub

 

 


© MESCIUS inc. All rights reserved.