人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBでMSCHART .NETの使い方を教えてください。以下のソースでArea3DStyle.Enable3D で実行時にエラーがでます。defaultがないとのことです。どのように直せばいいでしょうか?


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

●質問者: mai_mai_mail
●カテゴリ:コンピュータ インターネット
✍キーワード: Class .NET 360 ADD as
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● HALSPECIAL
●35ポイント

はずしていたらすみません。

Chart1.ChartAreas(0).Area3DStyle.Enable3D = True

もしくは

chartArea1.Area3DStyle.Enable3D = True

でいかがでしょう。

◎質問者からの返答

両方ともできました。前にも回答いただきましたよね。いつもありがとうございます。


2 ● freemann
●35ポイント ベストアンサー

インデックスが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);

◎質問者からの返答

できました。ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ