- 日時： 2010/07/11 09:00
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][描画・画像][] *
* キーワード：Microsoft Chart Controls,基本設定,チャートタイプ,グラフの種類 *
***********************************************************************************
投 稿 日 ： 2010/03/10
投 稿 者 ： 花ちゃん
Private Sub Button5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button5.Click
'５．グラフの種類を変更する
Call ChartClar(Chart1) '設定を一旦初期値に戻す。(通常は必要ありません。)
With Chart1
For i As Integer = 1 To colums
Dim columnName As String = ds.Tables(0).Columns(i).ColumnName.ToString()
'系列の設定(国語・数学等)
.Series.Add(columnName)
'X 軸のラベルテキストの読込・設定(浅野等の氏名)
.Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
'グラフ用のデータの読込・設定(点数)
.Series(columnName).YValueMembers = columnName
Next
'http://msdn.microsoft.com/ja-jp/library/dd489233(VS.100).aspx
'■------------------- グラフの種類を変更する ----------------Start--■
'.ChartAreas(0).Area3DStyle.Enable3D = True 3D 表示にする場合
'重なって見えにくい場合は、下記のように表示するグラフの種類の順番を変える
'(Series(1) に入れる元のデータの行等の順番を変えるという事です。)
.Series(1).ChartType = DataVisualization.Charting.SeriesChartType.Spline
.Series(1).BorderWidth = 3 '折れ線の太さを設定
.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area
.Series(2).ChartType = DataVisualization.Charting.SeriesChartType.Point
.Series(2).MarkerSize = 10 'マーカーのサイズを変更
'■-----------------------------------------------------------End----■
End With
End Sub
上記実行図
http://hanatyan.sakura.ne.jp/chart/chart05.png
Chartコントロール(VB2008版)のチャートタイプ一覧
http://hanatyan.sakura.ne.jp/chart/chart1.htm
|
Chartコントロール(VB2008版)でグラフの種類を変更する(VB.NET)