怎样实例化Chart控件，Chart可以用来绘制有4个参数坐标的图么

xieup1 2014-04-14 04:25:31

我写了一段代码，没有报错，但是运行有问题。



  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)