Microsoft Chart Control の外観及び背景色の設定
下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。

Private Sub Button2_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button2.Click
'Microsoft Chart Control の外観及び背景色の設定
   
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.Emboss 
'グラフエリアの外観の設定
      .BackColor = Color.Yellow                       
'グラフエリアの背景色の設定
      .ChartAreas(0).BackColor = Color.MistyRose     
'プロットエリアの背景色の設定

      '又は、下記のようにプロシージャに書いておき必要時に呼び出す。(別添参照)
      'SetChartStyle(Chart1, BorderSkinStyle.Emboss, Color.Yellow, Color.MistyRose)
      '■------------------------------------------------------------------End----■

   
End With

End Sub

別添

'このサンプル以降も必要によりこのようなプロシージャにまとめて書いてみてください。
Private Sub SetChartStyle(ByVal Cht As Chart, ByVal bsstyle As BorderSkinStyle, _
                         
ByVal bakcolor As Color, ByVal areColor As Color)
   
With Cht
      .BorderSkin.SkinStyle = bsstyle     
'グラフエリアの外観の設定
      .BackColor = bakcolor               
'グラフエリアの背景色の設定
      .ChartAreas(0).BackColor = areColor 
'プロットエリアの背景色の設定
   
End With
End Sub

上記コードの実行結果
    

BorderSkinStyle は、上記の Emboss 以外にも下記のような形状が設定できますので試してみてください。

 メンバー名      説      明 
 None         境界線スキンを使用しません。 
 Emboss       エンボス境界線スキンを使用します。 
 Raised       浮き出た外観の境界線スキンを使用します。 
 Sunken       くぼんだ外観の境界線スキンを使用します。 
 FrameThin1   角が丸い細い境界線スキンを使用します。 
 FrameThin2   上部の角が丸い細い境界線スキンを使用します。 
 FrameThin3   角が直角の細い境界線スキンを使用します。 
 FrameThin4   外側の角が直角で内側の角が丸い、細い境界線スキンを使用します。
 FrameThin5   ねじが示された、角が丸い細い境界線スキンを使用します。 
 FrameThin6   内側の角が直角で外側の角が丸い、細い境界線スキンを使用します。
 FrameTitle1  角が丸い境界線スキンを使用します。 
 FrameTitle2  上部の角が丸い境界線スキンを使用します。 
 FrameTitle3  角が直角の境界線スキンを使用します。 
 FrameTitle4  内側の角が丸く外側の角が直角の境界線スキンを使用します。 
 FrameTitle5  ねじが示された、角が丸い境界線スキンを使用します。 
 FrameTitle6  外側の角が丸く内側の角が直角の境界線スキンを使用します。 
 FrameTitle7  角が丸い境界線スキンを使用します。 右側には境界線は表示されません。
 FrameTitle8  上部および下部のみの角が丸い境界線スキンを使用します。 


2011/04/25

VBレスキュー(花ちゃん)
Visual Basic6.0  VB6.0
VB.NET2003/VB2005/VB2008/VB2010