チャートコントロールでデータバインド時に出る不具合?
お世話になっております。初投稿です。
当方、VB2010・WinXP(SP3)の環境で開発をしております。
今回は、チャートコントロールで線グラフを作ろうとしている際に出た問題に関して
相談させてください。
発生している問題
X軸のMaximumを5、Minimumを0、目盛を0.5おきに設定したチャートに対し、データテーブルをバインドした結果、なぜか1刻みで表示するはずの目盛が、0.01刻みの表示に強制的に書き換えられてしまいます。また、0スタートではなく-1スタートになってしまいます。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
上記赤丸の範囲の数値が勝手におかしくなります。
どなたかお力添えいただきたく存じます。
該当のソースコード
Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Windows.Forms Imports System.Windows.Forms.DataVisualization.Charting Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Single Dim DataTable As New DataSet1.dsTestDataDataTable Dim row As DataRow Dim DT1 As New DataTable Dim DR1 As DataRow '画面表示系の変更・ボタン入力無効化 Label1.Text = "計測中" Label1.BackColor = Color.OrangeRed Button1.Enabled = False Button2.Enabled = False TextBox1.Enabled = False '画面表示の変更を強制的に反映させる Label1.Refresh() TextBox1.Refresh() 'データテーブルの列を作成 DT1.Columns.Add("圧") DT1.Columns.Add("長") 'グラフ作成 For i = 0 To 5 Step 0.01 'Chart2.Series(0).Points.AddXY(i, (i * i) / TextBox1.Text) 'データテーブル作成 DR1 = DT1.NewRow DR1("圧") = i DR1("長") = (i * i) / TextBox1.Text DT1.Rows.Add(DR1) 'チャートにデータテーブルをバインド Chart2.DataSource = DT1 Chart2.Series(0).XValueMember = DT1.Columns(0).ColumnName.ToString Chart2.Series(0).YValueMembers = DT1.Columns(1).ColumnName.ToString Chart2.ChartAreas(0).AxisX.IntervalAutoMode = False Chart2.ChartAreas(0).AxisX.Interval = 1 Chart2.ChartAreas(0).AxisX.Maximum = 5 Chart2.ChartAreas(0).AxisX.Minimum = 0 '強制的に画面更新 Chart2.Refresh() '動作確認のためデータグリッドにも表示 DataGridView1.DataSource = DT1 DataGridView1.Refresh() Next 'ラベル・ボタンの状態変更 Label1.Text = "計測終了" Label1.BackColor = Color.Chartreuse Button2.Enabled = True datatable.Clear() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'リセットボタン Chart2.Series(0).Points.Clear() Chart2.Series(0).Points.AddXY(0, Double.NaN) Label1.Text = "計測可能" Label1.BackColor = Color.Aquamarine Button1.Enabled = True TextBox1.Enabled = True End Sub Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown '初期処理 Label1.Text = "計測可能" TextBox1.Text = 6 Chart2.Series(0).Points.Clear() Chart2.Series(0).Points.AddXY(0, Double.NaN) End Sub End Class
試したこと
データバインド後、X軸のMaximumを5、Minimumを0に再設定しましたが、特に変化はありませんでした。(線グラフ指定やほかのプロパティは、事前にプロパティウィンドウから設定してあります。)
補足情報(FW/ツールのバージョンなど)
VB.net,VB2010,Windows XP(SP3)

回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。