Salve,
ho preso spunto da un post di Oregon ed ho creato un chart a barre da una datagidview
però le barre riferite ad un nome non vengono affiancate come nell'esempio di Oregon ed il nome non viene
centrato tra le barre. Questo è il sorgente
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Button5.Text.Trim = "Grafico" Then
Chart1.Visible = True
Button5.Text = "Chiudi Grafico"
Else
Chart1.Visible = False
Button5.Text = "Grafico"
End If
Dim Chart = New ChartControl()
With Chart1
.Series.Clear()
.ChartAreas.Clear()
.ChartAreas.Add("Area0")
.ChartAreas("Area0").AxisX.Interval = 1
.Series.Add("Consuntivo Interventi")
With .Series(0)
.XValueMember = "Impianto"
.YValueMembers = "ManOp"
.YValueMembers = "Ricambi"
.IsValueShownAsLabel = True
End With
For Count As Integer = 0 To DGV1.Rows.Count - 2
Chart1.Series(0).Points.AddXY(DGV1.Item(2, Count).Value.ToString, DGV1.Item(3, Count).Value)
Chart1.Series(0).Points.AddY(DGV1.Item(4, Count).Value)
Chart1.Series(0).Points.AddY(DGV1.Item(5, Count).Value)
Next
End With
End Sub
questo è il risultato