VB6 + INTERNET + GRÁFICOS

Citação:

Sinclair

Sobe o componente depois para o povo baixar oficialmente...

Citação:

Não sei se é o caso, mas...Pode ter acontecido de você está usando Windows 64 bits e nestes casos o registro da OCX é em c:\windows\syswow64 e não em c:\windows\system32.Também não se esqueça de registrar a OCX, mas deixe a OCA junto (por alguma razão algumas versões do windows "pedem" isto, o que por lógica não teria sentido).

Citação:

Vcs tem um exemplo de como gerar no vb6 ?, eu fiz a instalação mas não achei o exemplo citado.

  Sub test()
   'gGrid.Visible = False
   With chart
   .Visible = True
      ' Single bars
    Dim nRetval As Long
    Dim sTemp As String
    Dim nAverage As Double
    Dim nX1&, nY1&, nX2&, nY2&
    
    'DoSettings       ' Reset global flags of the demo project

        '************** Design the chart **********************
        .Reset
        .Left = 100
        .RMCBackColor = vbWhite 'Azure
        .RMCStyle = RMC_CTRLSTYLEFLAT
        .RMCWidth = 600
        .RMCHeight = 450
        .Top = gGrid.Top
        .Left = gGrid.Left
        .Width = gGrid.Width
        .Height = gGrid.Height
        '************** Add Region 1 *****************************
        .AddRegion
        With .Region(1)
            .Left = 5
            .Top = 5
            .Width = -5
            .Height = -5
            .Footer = "teste footer"
            '************** Add caption to region 1 *******************
            .AddCaption
            With .Caption
                .Titel = "título"
                .backcolor = Blue
                .TextColor = Azure 'Yellow
                .FontSize = 10
                .Bold = True
            End With 'Caption
            '************** Add grid to region 1 *****************************
            .AddGrid
            With .Grid
                .backcolor = Beige
                .AsGradient = True 'False
                .BicolorMode = RMC_BICOLOR_LABELAXIS
                .Left = 0
                .Top = 0
                .Width = 0
                .Height = 0
            End With 'Grid
            '************** Add data axis to region 1 *****************************
            .AddDataAxis
            With .DataAxis(1)
                .Alignment = RMC_DATAAXISLEFT
                .MinValue = 0
                .MaxValue = 100
                .TickCount = 11
                .FontSize = 8
                .TextColor = Black
                .LineColor = Black
                .LineStyle = RMC_LINESTYLEDOT
                .DecimalDigits = 0
                .AxisUnit = ""
                .AxisText = ""
            End With 'DataAxis(1)
            '************** Add label axis to region 1 *****************************
            .AddLabelAxis
            With .LabelAxis
                .AxisCount = 1
                .TickCount = 5
                .Alignment = RMC_LABELAXISBOTTOM
                .FontSize = 8
                .TextColor = Black
                .TextAlignment = RMC_TEXTCENTER
                .LineColor = Black
                .LineStyle = RMC_LINESTYLENONE
                sTemp = "Mes 1*Mes 2*Mes 3*Mes 4*Mes 5"
                .LabelString = sTemp
            End With 'LabelAxis
            '************** Add Series 1 to region 1 *******************************
            .AddBarSeries
            With .BarSeries(1)
                .SeriesType = RMC_BARSINGLE
                .SeriesStyle = RMC_BAR_FLAT_GRADIENT2
                .Lucent = False
                .color = CornflowerBlue
                .Horizontal = False
                .WhichDataAxis = 1
                .ValueLabelOn = False
                .PointsPerColumn = 1
                .HatchMode = RMC_HATCHBRUSH_OFF
                '****** Set data values ******
                sTemp = "4555.13*-2801.67*40.15*6080.80*15000"
                .DataString = sTemp
                .SetColorValue 3, Red      ' Set the color for the third bar to Red
            End With 'BarSeries(1)
        End With 'Region(1)
        ' We want to add an average line. So we first must call method Calc in order that
        ' every necessary calculation is done, without painting ...
        .Calc
        ' ... and now the average and the position for the line within the grid can be calculated:
        .Region(1).BarSeries(1).CalcAverage nAverage, nX1, nY1, nX2, nY2
        ' we add three CustomObjects:
        .AddCustomObjectLine        ' for the average line
        .AddCustomObjectLine        ' line for the "legend"
        .AddCustomObjectText        ' the text for the "legend"
        With .CustomObjectLine(1)   ' The average line itself
            .SetProperties nX1, nY1, nX2, nY2, RMC_FLAT_LINE, Green
        End With
        With .CustomObjectLine(2)   ' The "legend"
            .LineColor = Green                 ' the properties for the
            .PointXString = "480*565*565"      ' line, which points from
            .PointYString = "180*180*220"      ' the "legend's" text to
            .EndCap = RMC_ANCHOR_ARROW_CLOSED  ' the average line
        End With
        With .CustomObjectText(1)              ' the text for the "legend"
            .Text = "Average (" + Format$(nAverage, "0.00") + ")"
            .Left = 480
            .Top = 160
            .TextColor = Green
            .FontSize = 8
        End With
        nRetval = .Draw                 ' now we can paint the chart
    End With 'chart
   End Sub 

Citação:

olhe isto .... leandroascierto.com/blog/charts-control-con-gdi/

Citação:

olhe isto .... leandroascierto.com/blog/charts-control-con-gdi/

Citação:

Estou tentando usar os gráficos criados por ele, mas é difícil, muitos bugs, ou eu não sei lidar com a ferramenta, mas parece ser bem simples. Além disso, apesar de bonito e prático, parece que ela não é tão completa. Um dos principais gráficos que eu queria era o gráfico de fluxo de caixa, mas o gráfico de área dele não apresenta legenda. Já a legenda disponível na barra gráfica, por exemplo, não dá para alterar o tamanho da letra, o que torna a visualização difícil. Vou voltar a usar o ocx RMChart, em breve compartilharei imagens.