Estoy realizando el componente gb.Chart para generar graficos a partir de una consulta a una base de datos. El caso es que general el grafico perfectamente, pero hay detalles como por ejemplo, ajustar el tamaño de la fuente del grafico generado, que aun no le he dado.
Les dejo el codigo aca para ver quien me puede hechar una mano.
Public Sub Form_Open()
Dim query As String
Dim lenguaje As String
Dim lPhp, lPython, lGambas, otros As Integer
Me.Center()
query = "SELECT * FROM sistema"
ModConexion.consulta(query)
Do While ModConexion.rs1.Available
lenguaje = Trim(ModConexion.rs1!lenguaje)
Select Case lenguaje
Case "PHP"
lPhp = lPhp + 1
Case "Python"
lPython = lPython + 1
Case "gambas"
lGambas = lGambas + 1
Case Else
otros = otros + 1
End Select
ModConexion.rs1.MoveNext
Loop
Chart.Headers.Values = ["PHP", "Python", "gambas", "Otros"]
'valores de la grafica tipo float
Chart[0].Values = [lPhp, lPython, lGambas, otros]
Chart[0].Text = "Valores"
Chart.ShowLabels = True
'Titulo de la Grafica
Chart.Title.Text = "Estadistica por Lenguajes de Programación"
'Leyenda
Chart.Legend.Visible = True
Chart.Legend.Title = "Lenguajes"
'Tipo de Grafica
Chart.Type = ChartType.Pie
DrawingArea1.Refresh
End
Uruguay
dos hermanas, sevilla
