none
Valores especificos para eixo X e Y MSChart - VB6 RRS feed

  • 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 
       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. 

    terça-feira, 21 de abril de 2015 17:06

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
    sexta-feira, 24 de abril de 2015 23:20
  • 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.

    quinta-feira, 23 de abril de 2015 17:23
    Moderador

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.

    quinta-feira, 23 de abril de 2015 17:23
    Moderador
  • 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
    sexta-feira, 24 de abril de 2015 23:20