gráfico bonito igual en 3d. solo tiene 1 series.
estoy sacando los puntos de un listview.
Código:
Try If ListView1.SelectedItems.Count > 0 Then 'Si hay algún item seleccionado Dim xvalue As Integer = 0 Dim yValue As Double ' Chart1.Series.Clear() Dim pointIndex As Integer For pointIndex = 0 To ListView1.SelectedItems.Count - 1 If ListView1.Items(pointIndex).Selected = True Then xvalue = Integer.Parse(ListView1.Items(pointIndex).ToString.Replace("ListViewSubItem: {", "").Replace("ListViewItem: {", "").Replace("}", "")) yValue = Double.Parse(ListView1.Items(pointIndex).SubItems(1).ToString.Replace("ListViewSubItem: {", "").Replace("ListViewItem: {", "").Replace("}", "")) Chart1.Series("Series1").Points.AddXY(xvalue, yValue) Chart1.Series("Series1").ChartType = SeriesChartType.FastLine Chart1.Series("Series1").IsVisibleInLegend = False End If Next Else MsgBox("No ha seleccionado ninguna actividad de la lista") End If Catch ex As Exception MsgBox(ex.Message) End Try