| Microsoft Chart Control で折れ線グラフの表示とマーカーの設定 |
| 下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。 Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.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.Line 'X 軸のラベルテキストの読込・設定(浅野等の氏名) .Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString() 'グラフ用のデータの読込・設定(点数) .Series(columnName).YValueMembers = columnName Next '------------- ここまでは、基本的な表示設定と同じ ----------------------------------------- '■------------------- マーカーの設定 ----------------Start--■ .Series(0).MarkerStyle = MarkerStyle.Star5 'マーカーの種類を指定 .Series(0).MarkerSize = 15 'マーカーの大きさを指定 .Series(0).MarkerColor = Color.Gold 'マーカーのカラーを設定 .Series(1).MarkerImage = "Marker.png" '指定の画像をマーカーに(各自ご用意願います。) .Series(1).MarkerStyle = MarkerStyle.Circle .Series(2).MarkerStyle = MarkerStyle.Triangle .Series(2).MarkerSize = 10 'マーカーの大きさを指定 '■---------------------------------------------------End----■ End With End Sub |
上記コードの実行結果 |