Valores especificos para eixo X e Y MSChart - VB6

Question

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 
   Next

Ele funciona, o problema é para valores acima de 1, exemplo list2: 11,12,13,14,15,16, dá erro: Index given is out of bounds. 

Answer 1

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.

Answer 2

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.