|
|||||
<このサンプルの概要> VB.NETで簡単にグラフを表示する方法を調査しました。 VB6のCHARTコントロール(mschrt20.ocx)を使用するのが一番簡単そうなのでサンプルを作成しました。 グラフ用のコントロールは[Microsoft Chart Control 6.0 (SP4) (OLEDB)](mschrt20.ocx)を使用して います。mschrt20.ocxはVB6のランタイムに入っていますので、ベクターからダウンロードする事が出来 ます。VB6ランタイムと称しているもの全てにmschrt20.ocxが入っている訳ではありませんので、説明を 参照するか試しにインストールして確認する必要があります。 mschrt20.ocxを入手出来れば、後はツールボックスに追加してフォームに貼り付けて使用するだけです。 C#.NET版はこちらです。 MSCHRT20.OCXでグラフを表示するサンプル(C#.NET) このサンプルではサインカーブを表示しています。 ★フォームモジュール(Form1.vb) Public Class Form1 '' [Microsoft Chart Control 6.0 (SP4) (OLEDB)]コントロールをフォームに追加してください。 '' <[Microsoft Chart Control 6.0 (SP4) (OLEDB)]コントロールの追加方法> '' [ツールボックス]の空いている部分でマウス右クリックし[アイテムの選択]を実行します。 '' [ツールボックス アイテムの選択]画面の[COMコンポーネント]タブで、 '' [Microsoft Chart Control 6.0 (SP4) (OLEDB) C:\WIN...\system32\mschrt20.ocx]を選択します。 '' [ツールボックス]に追加された[Microsoft Chart Control 6.0 (SP4) (OLEDB)]の '' コントロールをFormに追加します。 Private Sub Form1_Load( _ ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' グラフの選択を許可するかどうか AxMSChart1.AllowSelections = False ' グラフの種類(このサンプルでは線グラフです) AxMSChart1.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine ' 表示するグラフの数 AxMSChart1.ColumnCount = 1 ' 表示する横軸の数(縦軸は自動のようです) AxMSChart1.RowCount = 50 For j As Integer = 1 To AxMSChart1.RowCount ' 横軸指定 AxMSChart1.Row = j ' 横軸のラベル設定 AxMSChart1.RowLabel = j - 1 For i As Integer = 1 To AxMSChart1.ColumnCount ' グラフを複数表示する時はグラフの番号を指定 AxMSChart1.Column = i ' グラフの横軸に対する値(縦軸値)を設定 AxMSChart1.Data = Math.Sin(j * Math.PI / 10) Next Next End Sub End Class |