Thank you again for the reply.

I have created an application of Visual Basic 6, which uses Chart Fx Internet 5.5 for creating graphs and imagemaps in separate files.

These graph and imagemaps would be used into asp pages. After instalation of Chart Fx Internet 6.2 I have updated my application

in order to use the new version of the Chart Fx. But the application crushes when executing the line with Chart.GetHtmlTag().

This same code WORKS perfectly in asp page. What is the reason this code to stop working in VB application?

 

'---- code ----

    Dim Chart

 

    '--- ASP CODE

    'Set chart=server.CreateObject("ChartFX.ASP.Server")

 

    '--- VB6 CODE

    Set Chart = CreateObject("ChartFX.ASP.Server")

 

    Chart.Chart3D = False

    Chart.Gallery = Gallery_Bar

    Chart.Stacked = Stacked_Stacked100

    Chart.BottomGap = 30

 

    ' Populating with random data

    Chart.OpenData COD_Values, 4, 8

    Dim j, i

    For i = 0 To 3

        For j = 0 To 7

            Chart.Value(i, j) = (Rnd()) * 99 + 1

            Chart.Point(i, j).Tag = CStr(CLng(Rnd * 10000 + 1)) '-- ID

        Next

    Next

    Chart.CloseData COD_Values

   

    '---- Legend

    Chart.SerLegBox = True

    Chart.SerLegBoxObj.Alignment = ToolAlignment_Near

    Chart.SerLegBoxObj.Docked = Docked_Bottom

    Chart.series(0).Legend = "Product 1"

    Chart.series(1).Legend = "Product 2"

    Chart.series(2).Legend = "Product 3"

 

    '---- labels

    chart.Legend(0) = "Jan"

    chart.Legend(1) = "Feb"

    chart.Legend(2) = "Mar"

    chart.Legend(3) = "Apr"

    chart.Legend(4) = "May"

    chart.Legend(5) = "Jun"

    chart.Legend(6) = "Jul"

    chart.Legend(7) = "Aug"

    chart.AxisX.Step = 1

 

   

    Chart.TipMask = "%L"

    Chart.link.URL = "index.asp?uID=%L"

 

    '---- Change colors ----

    Chart.OpenData COD_Colors, 0, 0

    For j = 0 To 3

        Chart.series(i).Color = Rnd * vbWhite

    Next

    Chart.CloseData COD_Colors

    '----------------------

 

    Dim c

 

    '--- ASP CODE

    'response.write Chart.GetHtmlTag("320", "240", "Png")

    '

 

    '--- VB6 CODE

    'Call Chart.GetHtmlTag(320, 240, "Png")

    'c = Chart.GetHtmlTag(320, 240, "Png")

    c = Chart.GetHtmlTag("320", "240", "Png")

 

 

other problems with Fx 6.2

 

I receive an error when I try to change the name or size of the Font of PointLabel in asp page:

 

    Chart.Point(-1,0).PointLabels = True

    Chart.OpenData COD_Values, 4, 8

    Dim j, i

    For i = 0 To 3

        For j = 0 To 7

            Chart.Value(i, j) = (Rnd()) * 20

            Chart.Point(i, j).Tag = Rnd * 10000 + 1 '-- ID

            chart.series(i).PointLabelAngle=45

            chart.point(i,j).PointLabelAngle=90

            chart.point(i,j).PointLabelFont.Name = "Arial"  '---> exception occured 'Name'

            chart.point(i,j).PointLabelFont.Size = 7        '---> exception occured 'Size'

            chart.point(i,j).PointLabelColor = Rnd * vbWhite

        Next

    Next

 

 

How can I change the positions of the Pointlabels, like this graph, where there are the pointlabels above the bars?

 

 

Is there any way to create  a custom aggregate label above the bars of the stackbar (for example) ?

 

Thank you

 

Regards,

Fanko