| Microsoft Chart Control でグラフを3Dで表示する |
| 下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。 Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'Microsoft Chart Control でグラフを3Dで表示する 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--■ 'グラフ エリアを 3D で表示する場合は true。2D で表示する場合は false。既定値は false .ChartAreas(0).Area3DStyle.Enable3D = True '3D 表示にする場合 '3D グラフ エリアの水平軸を中心とする回転の角度を取得または設定 .ChartAreas(0).Area3DStyle.Inclination = 15 '15度傾き(変更すると氏名が全部表示されなくなる) '3D グラフ エリアの垂直軸を中心とする回転の角度を取得または設定 .ChartAreas(0).Area3DStyle.Rotation = 15 '15度回転(変更すると氏名が全部表示されなくなる) 'その場合下記の設定を変更するとすべてのラベルが表示される 'データ系列間の距離を表す integer 値。 許容範囲は 0 ～ 1000% です。既定値は 100% です。 .ChartAreas(0).Area3DStyle.PointGapDepth = 100 '表示されない場合＝50 で試してください 'データ ポイントの深度を表す integer 値。 許容範囲は 0 ～ 1000% です。 既定は 100% です。 .ChartAreas(0).Area3DStyle.PointDepth = 100 '表示されない場合＝50 で試してください '■---------------------------------------------------------End----■ 'With Chart1.ChartAreas(0).AxisX ' 'ラベルに対して自動的に適用できるスタイルの設定 注① 参照 ' .LabelAutoFitStyle = LabelAutoFitStyles.DecreaseFont Or LabelAutoFitStyles.IncreaseFont ' 'X軸ラベル(氏名)の自動調整で使用できる最大のフォントサイズを設定 ' '(グラフを拡大表示した時に表示サイズに合せてフォントサイズも大きくなる時の最大サイズ) ' .LabelAutoFitMaxFontSize = 15 ' 'X軸ラベル(氏名)の自動調整で使用できる最小のフォントサイズを設定 ' '(グラフを縮小表示した時に表示サイズに合せてフォントサイズも小さくなる時の最小サイズ) ' .LabelAutoFitMinFontSize = 8 '5 以下の設定はできない ' .MajorGrid.Interval = 1 'End With End With End Sub |
上記コードの実行結果 |
| 上記以外にも色々表示設定ができますので、必要なら調べて試して見てください。 |