質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.11%

VB.netのチャートで、データバインド時の挙動に関して

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 694

brnt

score 4

チャートコントロールでデータバインド時に出る不具合?

お世話になっております。初投稿です。
当方、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)

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

check解決した方法

0

どうやらチャートの仕様のようです。エクセルでも似たような動きが確認できました。線グラフではなく、散布図の折れ線グラフを使うことで解決しました。そもそもの用途が違っていたようです。
こちらを参照しました↓
http://office-qa.com/Excel/ex194.htm

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.11%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる