0

我在 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/ball 效果的任何想法？

谢谢

4

1 回答 1

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。

于 2013-04-10T14:52:44.640 回答