Dim i As Integer = 0 For Each clmn As DataGridViewColumn In frmMain.dgvMeas.Columns With clmn .HeaderText = c_strHeader(i) End With i += 1 Next .Rows.Add(0.005, 100) End With
'グラフ With frmMain.chartMeas .Series.Clear() '系列を初期化 .ChartAreas.Clear()
Dim chartArea1 As ChartArea = New ChartArea() .ChartAreas.Add(chartArea1)
Dim series1 As Series = New Series() series1.ChartType = SeriesChartType.FastLine frmMain.dgvMeas.Rows(0).Selected = True For Each cel As DataGridViewCell In frmMain.dgvMeas.SelectedCells series1.Points.Add(cel.Value) Next
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
ChartとDataGridViewに関する質問です。
以下のコードにて表(DataGridView,dgvMeas)に直値を代入し、それをグラフに表示しているのですが、x軸のラベルには"1","2"と表示されてしまいます。
Friend Function testDrw2() As Integer
Dim c_strHeader() As String = {"AAA", "BBB"}
'データ表
With frmMain.dgvMeas
.ColumnCount = c_strHeader.GetUpperBound(0) + 1 '列数を設定
.RowHeadersVisible = False
Dim i As Integer = 0
For Each clmn As DataGridViewColumn In frmMain.dgvMeas.Columns
With clmn
.HeaderText = c_strHeader(i)
End With
i += 1
Next
.Rows.Add(0.005, 100)
End With
'グラフ
With frmMain.chartMeas
.Series.Clear() '系列を初期化
.ChartAreas.Clear()
Dim chartArea1 As ChartArea = New ChartArea()
.ChartAreas.Add(chartArea1)
Dim series1 As Series = New Series()
series1.ChartType = SeriesChartType.FastLine
frmMain.dgvMeas.Rows(0).Selected = True
For Each cel As DataGridViewCell In frmMain.dgvMeas.SelectedCells
series1.Points.Add(cel.Value)
Next
.Series.Add(series1)
End With
End Function
x軸ラベルに、表のカラムヘッダー表示である"AAA","BBB"を表示させたいのですが方法が分かりません。
希望条件
・直値で表へ代入したデータをグラフ表示したい。（データは1行のみでファイルには落としません。）
・x軸のラベルにカラムヘッダーを表示したい。
・上記の条件を満たし、「ChartとDataGridViewを関連付ける」というような表現が可能ならそのようにしたい。（コーディングがシンプルになりそうな気がするので）CSVファイルを読み込んで上記のように表示する例をWEBで見つけましたが今回は直値で実現したいと思います。
初歩的な質問かと思いますが、わかる方いらしたらご教授、お願い致します。