Usuário com melhor resposta
Valores especificos para eixo X e Y MSChart - VB6

Pergunta
-
Boa tarde,
Utilizo o codigo abaixo para montar um grafico de linha:
MSChart1.RowCount = List1.ListCount
For ct = 0 To CInt(List1.ListCount) - 1
MSChart1.Row = List2.List(ct) para list2: 1,2,3,4,5,6 (exemplo)- eixo X
MSChart1.RowLabel = List2.List(ct)
MSChart1.Data = List1.List(ct) para list1: 0,0,9,0,0,9 (exemplo)- eixo Y
NextEle funciona, o problema é para valores acima de 1, exemplo list2: 11,12,13,14,15,16, dá erro: Index given is out of bounds.
Respostas
-
Valeu amigo.
ficou assim:
ct = 0
For ct = 0 To CInt(List1.ListCount) - 1
MSChart1.Row = ct + 1
MSChart1.RowLabel = List2.List(ct)
MSChart1.Data = List1.List(ct)
Next
Grato.- Editado AntonioFabio sexta-feira, 24 de abril de 2015 23:21
- Marcado como Resposta AntonioFabio sexta-feira, 24 de abril de 2015 23:22
-
Boa tarde Antônio,
Sugiro que verifique no link abaixo se encontra a solução para o seu problema. Nele você encontrará mais detalhes sobre a utilização do MSChart no VB. Caso não seja suficiente, desmarque a resposta e nos envie mais detalhes do problema que continuaremos ajudando.
http://www.macoratti.net/graph.htm
Obrigado,
Abraço!
Eduardo Romero
Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.- Sugerido como Resposta Eduardo.RomeroModerator quinta-feira, 23 de abril de 2015 17:23
- Marcado como Resposta Eduardo.RomeroModerator quinta-feira, 23 de abril de 2015 17:23
Todas as Respostas
-
Boa tarde Antônio,
Sugiro que verifique no link abaixo se encontra a solução para o seu problema. Nele você encontrará mais detalhes sobre a utilização do MSChart no VB. Caso não seja suficiente, desmarque a resposta e nos envie mais detalhes do problema que continuaremos ajudando.
http://www.macoratti.net/graph.htm
Obrigado,
Abraço!
Eduardo Romero
Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.- Sugerido como Resposta Eduardo.RomeroModerator quinta-feira, 23 de abril de 2015 17:23
- Marcado como Resposta Eduardo.RomeroModerator quinta-feira, 23 de abril de 2015 17:23
-
Valeu amigo.
ficou assim:
ct = 0
For ct = 0 To CInt(List1.ListCount) - 1
MSChart1.Row = ct + 1
MSChart1.RowLabel = List2.List(ct)
MSChart1.Data = List1.List(ct)
Next
Grato.- Editado AntonioFabio sexta-feira, 24 de abril de 2015 23:21
- Marcado como Resposta AntonioFabio sexta-feira, 24 de abril de 2015 23:22