|
分類:[VB.NET/VB2005 以降]
相変わらずの素人な質問ですみません。
Windows11、VB2017です。
このように0(ゼロ)を含んでのデータの場合には、
必ず0(ゼロ)の位置にY軸目盛りを表示するにはどのようにすれば良いのか教えてください。
サンプルプログラムの修正でお願いします。
'乱数を生成
Dim dat(20) As Single
Dim rand As New Random()
For i = 0 To 20
dat(i) = rand.Next(-30, 65)
Next
'
Dim ds As New DataSet
Dim dt As New DataTable
Dim dtRow As DataRow
With dt.Columns
.Add("数値", GetType(Single))
End With
ds.Tables.Add(dt)
'データの追加
For i = 0 To 20
dtRow = ds.Tables(0).NewRow
dtRow(0) = dat(i)
ds.Tables(0).Rows.Add(dtRow)
Next
'----------------
'Chart1 の描画
'----------------
'Chart に表示するデータソースを設定
Chart1.DataSource = ds
' 折れ線
Dim ore1 = Chart1.Series.Add("折れ線@")
With ore1
.ChartType = DataVisualization.Charting.SeriesChartType.Line
.YValueMembers = "数値"
End With
'Y軸の最低最高
Chart1.ChartAreas(0).AxisY.Minimum = -30
Chart1.ChartAreas(0).AxisY.Maximum = 65
'Y軸ラベル表示の間隔
Chart1.ChartAreas(0).AxisY.Interval = 50
|