Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DynamicChartCreation_Load(sender, e)
End Sub
Dim Chart1 As System.Windows.Forms.DataVisualization.Charting.Chart
Private Sub DynamicChartCreation_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Chart1 = New Chart()
Dim chartArea1 As New ChartArea()
Chart1.ChartAreas.Add(chartArea1)
Dim series1 As New Series()
Dim series2 As New Series()
データ代入は略
' Add series to the chart
Chart1.Series.Add(series1)
Chart1.Series.Add(series2)
Chart1.Location = New System.Drawing.Point(16, 48)
Chart1.Size = New System.Drawing.Size(360, 260)
Chart1.ChartAreas("Default").Area3DStyle.Enable3D = True <=ここでDefaultがないとエラーが出る。
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Chart1})
End Sub 'DynamicChartCreation_Load
End Class
インデックスが0番になります。
Chart1.ChartAreas(0).Area3DStyle.Enable3D = True
また、3D表示でグラフを2つ重ねるなら、透過を利用した方が良いかもしれません。
series1.Color = Color.FromArgb(100, series1.Color.R, series1.Color.G, series1.Color.B);
series2.Color = Color.FromArgb(100, series2.Color.R, series2.Color.G, series2.Color.B);
はずしていたらすみません。
Chart1.ChartAreas(0).Area3DStyle.Enable3D = True
もしくは
chartArea1.Area3DStyle.Enable3D = True
でいかがでしょう。
両方ともできました。前にも回答いただきましたよね。いつもありがとうございます。
インデックスが0番になります。
Chart1.ChartAreas(0).Area3DStyle.Enable3D = True
また、3D表示でグラフを2つ重ねるなら、透過を利用した方が良いかもしれません。
series1.Color = Color.FromArgb(100, series1.Color.R, series1.Color.G, series1.Color.B);
series2.Color = Color.FromArgb(100, series2.Color.R, series2.Color.G, series2.Color.B);
できました。ありがとうございます。
できました。ありがとうございます。