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

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

新規登録して質問してみよう
ただいま回答率
87.20%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

解決済

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

brnt
brnt

総合スコア10

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

1回答

0評価

0クリップ

3625閲覧

投稿2018/12/10 07:25

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

お世話になっております。初投稿です。
当方、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ページの「注目」タブのフィードに表示されやすくなります。

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

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

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

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

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

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

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。