2013-04-10 20 views
0

我有一个在下面的代码在vb.net中的气泡图,我想使气泡出现一个渐变stlyle看起来像球(而不是圆)vb.net在每个布布的梯度风格的气泡图,使其看起来像一个球

Dim xValues As Double() = {10.62, 75.54, 60.45} 
Dim yValues As Double() = {650.62, 50.54, 600.45} 
Dim size As Integer() = {10, 20, 30} 
Dim names As String() = {"a", "b", "c"} 


Chart5.Series("Series1").ChartType = SeriesChartType.Bubble 
Chart5.Series("Series1").Points.DataBindXY(xValues, yValues, size, names) 
Chart5.Series("Series1").MarkerStyle = MarkerStyle.Circle 
For i = 0 To 2 
     Chart5.Series("Series1").Points(i).Label = names(i) 
Next 

我想:

Chart_Analysis.Series("Series1").BackSecondaryColor = Drawing.Color.Green 
    Chart_Analysis.Series("Series1").MarkerColor = Drawing.Color.Blue 
    Chart_Analysis.Series("Series1").BackGradientStyle = GradientStyle.Center 

...和

For i = Region_From To Region_To 
     Chart_Analysis.Series("Series1").Points(i).Label = names(i) 
     Chart_Analysis.Series("Series1").Points(i).BackGradientStyle = GradientStyle.Center 
     Chart_Analysis.Series("Series1").Points(i).Color = Drawing.Color.Aqua 
     Chart_Analysis.Series("Series1").Points(i).BackSecondaryColor = Drawing.Color.Green 
    Next 

.. 。但没有成功

关于如何实现这个3D /球效果的任何想法?

感谢

回答

0

试着改变你的第一个选项

Chart_Analysis.Series("Series1").BackSecondaryColor = Drawing.Color.Green 
Chart_Analysis.Series("Series1").MarkerColor = Drawing.Color.Blue 
Chart_Analysis.ChartAreas("Series1").BackGradientStyle = GradientStyle.Center 

注意改变ChartAreas在第三行。我发现有时候你认为你应该对这个系列进行编码,但是你应该使用ChartAreas。

+0

非常感谢您的快速回复。不幸的是我只是变成了深蓝色的圈子。 ChartAreas似乎没有任何区别 – Selrac 2013-04-10 15:08:21

+0

这很奇怪。这个改变使它对我有用。 – APrough 2013-04-10 18:58:48

相关问题