1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Dim ChartLegend As Legend
Dim ChartSerie As Series
Dim Lst As ListViewItem
chart1.Series.Clear()
chart1.Legends.Clear()
chart1.ChartAreas.Clear()
If (Liste.Columns.Count > 0) AndAlso (Liste.Items.Count > 0) Then
ChartLegend = New Legend
ChartLegend.LegendStyle = LegendStyle.Column
ChartLegend.CustomItems.Clear()
chart1.Legends.Add(ChartLegend)
chart1.ChartAreas.Add("")
chart1.ChartAreas(0).Area3DStyle.Enable3D = True
For Each Lst In Liste.Items
ChartSerie = New Series
ChartSerie.LegendText = Liste.GetSubItemString(Lst, 0)
chart1.Series.Add(ChartSerie)
ChartSerie.ChartType = SeriesChartType.Column
For i As Integer = 0 To Liste.Columns.Count - 2
ChartSerie.Points.AddXY(Liste.Columns(i + 1).Text, Liste.GetSubItemDouble(Lst, i + 1))
Next |
Partager