CONSTRUIR GRAFICO NO VB
Pessoal estou muito preocupado, como poderei fazer para gerar gráficos no VB estilo PIzza, Barras, etc. Que tiver algum exemplo ou poder me ajudar ficarei muito grato e que preciso disso o mais rápido possÃvel
VC quer fazer isso diretamente no VB, ou VC quer exportar os dados para o EXCEL, e lá no EXCEL montar estes gráficos??
Tente isto...
Private Sub Command1_Click()
Dim PieData(10) As Integer
Form1.Cls
For i = 0 To 9
PieData(i) = 20 + Rnd() * 100
Total = Total + PieData(i)
Next
Form1.DrawWidth = 2
For i = 0 To 9
arc1 = arc2
arc2 = arc1 + 6.28 * PieData(i) / Total
If Check1.Value Then
Form1.FillStyle = 2 + (i Mod 5)
Else
Form1.FillStyle = 0
End If
If Check2.Value Then
Form1.FillColor = QBColor(8 + (i Mod 6))
Else
Form1.FillColor = QBColor(9)
End If
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, , -arc1, -arc2
Next
End Sub
Espero ter ajudado... (caso vc tenha alguma dúvida, tenho projetos completos sobre gráficos, diretamente do VB, é só dar um toque, vlw ???)
Abraço.
Private Sub Command1_Click()
Dim PieData(10) As Integer
Form1.Cls
For i = 0 To 9
PieData(i) = 20 + Rnd() * 100
Total = Total + PieData(i)
Next
Form1.DrawWidth = 2
For i = 0 To 9
arc1 = arc2
arc2 = arc1 + 6.28 * PieData(i) / Total
If Check1.Value Then
Form1.FillStyle = 2 + (i Mod 5)
Else
Form1.FillStyle = 0
End If
If Check2.Value Then
Form1.FillColor = QBColor(8 + (i Mod 6))
Else
Form1.FillColor = QBColor(9)
End If
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, , -arc1, -arc2
Next
End Sub
Espero ter ajudado... (caso vc tenha alguma dúvida, tenho projetos completos sobre gráficos, diretamente do VB, é só dar um toque, vlw ???)
Abraço.
Tópico encerrado , respostas não são mais permitidas