VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

Chartコントロール(VB2008版)で棒のカラーを指定の色に設定(VB.NET) ( No.2 ) 　[親スレッドへ]

日時： 2012/03/05 21:25
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[チャート][描画・画像][]　　　　　　　　　　                        *
* キーワード：Microsoft Chart Controls,基本設定,グラフ,系列の色を変更,棒のカラー  *
***********************************************************************************
投稿日： 2010/03/10
投稿者：花ちゃん

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.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
         '■------------------- 棒のカラーを指定の色に設定 ----------------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
   End With

End Sub

※ 上記の他、カスタムパレッドを使用する方法もあります。