- 日時： 2010/03/11 07:04
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][描画・画像][] *
* キーワード：Microsoft Chart Controls,基本設定,タイトル,グラフの表題 *
***********************************************************************************
投 稿 日 ： 2010/03/10
投 稿 者 ： 花ちゃん
Private Sub Button7_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button7.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)
.Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Column
'X 軸のラベルテキストの読込・設定(浅野等の氏名)
.Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
'グラフ用のデータの読込・設定(点数)
.Series(columnName).YValueMembers = columnName
Next
'■------------------- Chartコントロールの外形を設定 ----------------Start--■
'スタイルは、１８種類程あるのでお好きなのを選んで下さい。
.BorderSkin.SkinStyle = BorderSkinStyle.FrameTitle1
.BorderSkin.BackColor = Color.Blue
'■------------------------------------------------------------------End----■
'■------------------- タイトルを設定 ----------------Start--■
.Titles.Add("")
With .Titles(0)
.Alignment = Drawing.ContentAlignment.TopCenter
.ForeColor = Color.White
.Font = New Font("ＭＳ Ｐ明朝", 12, FontStyle.Bold)
.Text = "平成２１年度期末テスト結果"
End With
'■----------------------------------------------------End----■
End With
End Sub
上記実行図(外形をフレームのスタイルに設定して、そこにタイトルを設定)
http://hanatyan.sakura.ne.jp/chart/chart07.png
|
Chartコントロール(VB2008版)でグラフのタイトルを設定する(VB.NET)