我写了一段代码,没有报错,但是运行有问题。
Dim NChart2 As New Chart
NChart2.Location = New Point(700, 12)
NChart2.Size = New Size(650, 300)
Dim NCArea As New ChartArea("NCA")
NChart2.ChartAreas.Clear()
NChart2.ChartAreas("NCA").BackColor = Color.Blue
NChart2.ChartAreas("NCA").BackGradientStyle = GradientStyle.Center‘’‘’‘’每次执行到这一句,就直接弹出窗口,运行完成了,后面的就不执行了。什么原因啊?
NChart2.ChartAreas("NCA").AxisX.IsMarginVisible = True
NChart2.ChartAreas("NCA").Area3DStyle.Enable3D = False
NChart2.ChartAreas("NCA").AxisX.Title = "Time"
NChart2.ChartAreas("NCA").AxisX2.Title = "Time"
NChart2.ChartAreas("NCA").AxisY.Title = "Anode A"
NChart2.ChartAreas("NCA").AxisY2.Title = "Anode B"
NChart2.ChartAreas.Add(NCArea)
Dim NTitle As New Title("NTitle")
NTitle.Text = "New Title"
NChart2.Titles.Clear()
NChart2.Titles.Add(NTitle)
Dim NSeries As New Series("Distance")
NSeries.ChartType = SeriesChartType.Bubble
NSeries.Color = Color.Coral
NSeries.BorderWidth = 1
NSeries.IsValueShownAsLabel = False
NChart2.Series.Clear()
NChart2.Series.Add(NSeries)
NChart2.Visible = True
Me.Controls.Add(NChart2)
请各位批一下
另外,这个空间可以画有4个变量的图么
------解决方案--------------------
可以绘制多维的图嘛?