Gráficos

[robertocarrillo]

Ya esta mis amigos, acá dejo el ejemplo por si a alguien le interesa.

Código vb:

Dim ChartArea1 As ChartArea = New ChartArea()
                Dim Legend1 As Legend = New Legend()
                Dim Series1 As Series = New Series()
                Dim Chart1 = New Chart()
                Me.Controls.Add(Chart1)
 
                ChartArea1.Name = "ChartArea1"
                Chart1.ChartAreas.Add(ChartArea1)
                Legend1.Name = "Legend1"
                Chart1.Legends.Add(Legend1)
                Chart1.Location = New System.Drawing.Point(10, 110)
                Chart1.Name = "Chart1"
                Series1.ChartArea = "ChartArea1"
                Series1.Legend = "Legend1"
                Series1.Name = "Series1"
                Chart1.Series.Add(Series1)
                Chart1.Size = New System.Drawing.Size(1000, 550)
                Chart1.TabIndex = 0
                Chart1.Text = "Chart1"
 
                Chart1.Series("Series1").XValueMember = "INFRACCION"
                Chart1.Series("Series1").YValueMembers = "CANTIDAD"
 
                Chart1.DataSource = TablaDatos
 

Taluego