VB? msdn: 示例 'In this example, the sales for two companies are shown for four months. 'Create the data array and bind it to the ChartData property. Dim Sales(,) As Object = New Object(, ) _ {{"Company", "Company A", "Company B"}, _ {"June", 20, 10}, _ {"July", 10, 5}, _ {"August", 30, 15}, _ {"September", 14, 7}} chtSales.ChartData = Sales
'Add a title and legend. With Me.chtSales .Title.Text = "Sales" .Legend.Location.LocationType = _ MSChart20Lib.VtChLocationType.VtChLocationTypeBottom .Legend.Location.Visible = True End With
'Add titles to the axes. With Me.chtSales.Plot .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Year" .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Millions of $" End With
'Set custom colors for the bars. With Me.chtSales.Plot 'Yellow for Company A ' -1 selects all the datapoints. .SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set(250, 250, 0) 'Purple for Company B .SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set(200, 50, 200) End With
msdn:
示例
'In this example, the sales for two companies are shown for four months.
'Create the data array and bind it to the ChartData property.
Dim Sales(,) As Object = New Object(, ) _
{{"Company", "Company A", "Company B"}, _
{"June", 20, 10}, _
{"July", 10, 5}, _
{"August", 30, 15}, _
{"September", 14, 7}}
chtSales.ChartData = Sales
'Add a title and legend.
With Me.chtSales
.Title.Text = "Sales"
.Legend.Location.LocationType = _
MSChart20Lib.VtChLocationType.VtChLocationTypeBottom
.Legend.Location.Visible = True
End With
'Add titles to the axes.
With Me.chtSales.Plot
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Year"
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Millions of $"
End With
'Set custom colors for the bars.
With Me.chtSales.Plot
'Yellow for Company A
' -1 selects all the datapoints.
.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set(250, 250, 0)
'Purple for Company B
.SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set(200, 50, 200)
End With