Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asptoday_discuss thread: Re: MSchart using ASP


Message #1 by "Dan Yerex" <danyerex@h...> on Wed, 7 Nov 2001 16:28:45
You have to make sure the lpk file is available.  You create it yourself 

using the lpktool.  For more info check out:



http://support.microsoft.com/support/kb/articles/Q159/9/23.ASP



Dan



> Hi,

> 

> Is there any champion out there who can tell me how to use MS Chart 

> using ASP. I have tried the following code using PWS and its not working

> 

> <!-- Here we are calling the LPK file.  This LPK file

> was created using the same method explained in the article-->

> 

> <object CLASSID=3D"clsid:5220cb21-c88d-11cf-b347-00aa00a28331"

> id=3D"Microsoft_Licensed_Class_Manager_1_0">

>    <param NAME=3D"LPKPath" VALUE=3D"mschart5.lpk">

> </object>

> 

> 

> <-- Here is where we are actually "instantiating" the

> ActiveX control.  I downloaded the file mschart5.cab from

> Microsoft's website.  It has been digitally signed. -->

> 

> <OBJECT ID=3D"MSChart1" WIDTH=3D100% HEIGHT=3D95%

>  CLASSID=3D"CLSID:31291E80-728C-11CF-93D5-0020AF99504A"

>   codebase=3D"mschart5.cab">

> </OBJECT>

> 

> 

> <script LANGUAGE=3D"Vbscript">

> 'Now, let's set the chart properties...!!!

> 

> 'This sets the chart to a line graph...

> MSChart1.ChartType =3D 3

> 

> 'Set the color and width of the line

> ' This sets the pen color to black (0,0,0)

> ' and width to 50 pixels.

> MSChart1.Plot.SeriesCollection(1).Pen.VtColor.Set 0,0,0

> MSChart1.Plot.SeriesCollection(1).Pen.Width =3D 50

> 

> 

> 'This sets the chart's labels to various formats,

> ' fonts, and sizes.

> For i =3D 1 To MSChart1.Plot.Axis(1).Labels.Count

>    'Format the Chart labels to Currency

>    MSChart1.Plot.Axis(1).Labels(i).Format =3D "$0,###"

>   

>    'Set the font to Tahoma

>    MSChart1.Plot.Axis(1).Labels(i).VtFont.Name =3D "Tahoma"

>   

>    'Set the font size to 10pt

>    MSChart1.Plot.Axis(1).Labels(i).VtFont.Size =3D 10

> Next

> 

> 

> 'This sets the # of rows in the chart

> MSChart1.RowCount =3D 5;

> 

> 'This sets the number of columns per row.

> MSChart1.ColumnCount =3D 2

> 

> 'This indicates to show the label

> MSChart1.ShowLegend =3D True

> 

> 

> for x =3D 1 to 5  'The number of rows we have

>  'This sets what current row we are editing

>  MSChart1.Row =3D x

> 

>    'This sets the row's label

>  MSChart1.RowLabel =3D "Row " & x

> 

>  'This plots the points for both columns (1 and 2)

>  'for the current row (x).  The value being

>  'plotted is x*5 and x*10

>  call MSChart1.DataGrid.SetData(x, 1, x*5,nullFlag)

>  call MSChart1.DataGrid.SetData(x, 2, x*10,nullFlag)

> next

> 

> </script>

> 

> I have taken this code from the following site,

> 

> http://www.4guysfromrolla.com/webtech/MSChartExample.shtml

> 

> 

> Regards

> ASIM

  Return to Index