- 日時： 2010/03/10 19:29
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][描画・画像][] *
* キーワード：Microsoft Chart Controls,カスタム属性を使って描画, *
***********************************************************************************
投 稿 日 ： 2010/03/10
投 稿 者 ： 花ちゃん
Private Sub Button14_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button14.Click
'14．カスタム属性を使って描画
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)
.Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Column
'X 軸のラベルテキストの読込・設定(浅野等の氏名)
.Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
'グラフ用のデータの読込・設定(点数)
.Series(columnName).YValueMembers = columnName
'■------------------- 棒のカラーを指定の色に設定 ----------------Start--■
Dim Col(5) As Color 'グラフのカラーを設定(お好みで、設定しなくてもOK)
Col(0) = Color.DeepSkyBlue : Col(1) = Color.DeepPink : Col(2) = Color.ForestGreen
Col(3) = Color.HotPink : Col(4) = Color.BlueViolet : Col(5) = Color.Lime
'棒のカラーを指定の色に設定
.Series(i - 1).Color = Col(i - 1)
'データポイントラベルの文字色も同じ色に設定
.Series(i - 1).Label = "#VALY"
.Series(i - 1).LabelForeColor = Col(i - 1)
'■---------------------------------------------------------------End----■
Next
'■------------------- カスタム属性を使って描画 ----------------Start--■
'３．棒のカラーを指定の色に設定 のコードに下記の１行を追加するだけです。
.Series(0)("DrawingStyle") = "Cylinder"
.Series(1)("DrawingStyle") = "Emboss"
.Series(2)("DrawingStyle") = "Wedge"
'■-------------------------------------------------------------End----■
'カスタム プロパティの特性
'--------------------------------------------------------------------------------
'該当するグラフの種類
' Bar, Column, Stacked Bar, 100% Stacked Bar, Stacked Column, 100% Stacked Column, Range Bar, Range Column
'該当するグラフ要素
' Series, DataPoint
'値の範囲
' Cylinder, Emboss, LightToDark, Wedge, Default
'既定値
' Default
'2D または 3D
' 「2 d、%3d
End With
End Sub
上記実行図
http://hanatyan.sakura.ne.jp/chart/chart14.png
|
Chartコントロール(VB2008版)でカスタム属性を使って描画(VB.NET)