| Microsoft Chart Control で表示が重なった場合の対策 |
| 下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。 Private Sub Button12_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button12.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 '------------- ここまでは、基本的な表示設定と同じ ----------------------------------------- '■------------------- グラフを3Dで表示する ----------------Start--■ .ChartAreas(0).Area3DStyle.Enable3D = True .ChartAreas(0).Area3DStyle.Inclination = 15 .ChartAreas(0).Area3DStyle.Rotation = 15 '■---------------------------------------------------------End----■ '■----------------- 表示が重なった場合の対策 --------------Start--■ '一番後ろになる色は目立つ色で .Series(0).Color = Color.FromArgb(255, Color.Red) ' Color.Red '少し目立つ色で半透明で表示 .Series(1).Color = Color.FromArgb(150, Color.Blue) 'あまり目立たない色で半透明で表示 .Series(2).Color = Color.FromArgb(100, Color.Gold) '■---------------------------------------------------------End----■ End With End Sub |
上記コードの実行結果 |
| 上記以外にも、表示順を変える事で、前面に表示する系列を選択してもOK Microsoft Chart Control の系列毎にグラフの種類を変更する も参考にしてください。 |