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