- 日時： 2010/03/10 18:46
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][描画・画像][] *
* キーワード：Microsoft Chart Controls,基本設定,X軸,Y軸のフォント,目盛線の設定 *
***********************************************************************************
投 稿 日 ： 2010/03/10
投 稿 者 ： 花ちゃん
Private Sub Button8_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button8.Click
'８．X軸・Y軸のフォント・線等の設定
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
Next
'■------------------- X軸・Y軸のフォント・線等の設定 ----------------Start--■
With Chart1.ChartAreas(0)
With .AxisX
'氏名のフォントの最大値
.LabelAutoFitMaxFontSize = 15
'氏名のフォントの最小値
.LabelAutoFitMinFontSize = 8
'グラフと氏名の間の線の色
.LineColor = Color.Red
'氏名毎の区切り線を区切らない
.MajorGrid.Interval = 6
End With
With .AxisY
.Maximum = 120 '点数の最大値
.Minimum = 0 '点数の最小値
.Interval = 20 '点数のメモリ間隔(２０点毎)
.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Solid
.LabelAutoFitMaxFontSize = 15
.LabelAutoFitMinFontSize = 8
.LineColor = Color.Blue
.LineWidth = 2
.LabelStyle.Format = "#,###" '桁区切りで表示の場合
'10点毎に補助線を表示
.MinorGrid.Enabled = True 'True に設定しないと表示しない
.MinorGrid.Interval = 10
.MinorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Dash
End With
End With
'■-------------------------------------------------------------------End----■
End With
End Sub
|
Chartコントロール(VB2008版)でX軸・Y軸のフォント・線等の設定(VB.NET)