2013-04-10 50 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

相關問題