-
ActiveX graph
I am using an ActiveX compoent, that I get from this code
Code:
<%
Buffer=True
Dim CrLf
CrLf =Chr(13)+Chr(10)
Sub CreateGraph(DataArray,XlabelsArray, LegendLabelsArray, Xdim,LegendDim,GraphHeader)
Response.write "<table border='0' cellpadding='0' cellspacing='0'>"+CrLf
' Write Graph header in table row One
Response.write "<tr><td colspan='2'>"+GraphHeader+"</td></tr>"+CrLf
Response.write "<tr>"+CrLf
Response.Write "<td bgcolor='#FFFFFF'>"+CrLf
'Create IE 3.0 Graph object
Response.Write "<object classid='clsid:FC25B780-75BE-11CF-8B01-444553540000' CODEBASE='http://activex.microsoft.com/controls/iexplorer/iechart.ocx#Version=4,70,0,1161' TYPE='application/x-oleobject' id='Chart1' width='400' height='250' align='center' hspace='0' vspace='0'>"+CrLf
Response.Write "<param name='_extentX' value='100'>"+CrLf
Response.Write "<param name='_extentY' value='100'>"+CrLf
Response.Write "<param name='ChartStyle' value='1'>"+CrLf
Response.Write "<param name='ChartType' value='12'>"+CrLf
Response.Write "<param name='hgridStyle' value='0'>"+CrLf
Response.Write "<param name='vgridStyle' value='0'>"+CrLf
Response.Write "<param name='colorscheme' value='1'>"+CrLf
Response.Write "<param name='rows' value='"+CStr(xdim)+"'>"+CrLf
Response.Write "<param name='columns' value='"+CStr(LegendDim)+"'>"+CrLf
Response.Write "<param name ='DisplayLegend' VALUE='0'>"+CrLf
Response.write "<param name='columnnames' VALUE='"
For a=1 To LegendDim
Response.write Trim(LegendLabelsArray(a))+" "
Next
Response.write "'>"+CrLf
Response.write "<param name='Rownames' value='"
For a=1 to Xdim
Response.write XlabelsArray(a)+" "
next
Response.write "'>"+CrLf
For a=1 TO LegendDim
For b=1 To Xdim
Response.write "<param name='data["+CStr(b-1)+"]["+CStr(a-1)+"]' value='"+CStr(DataArray(b,a))+"'>"+CrLf
Next
Next
Response.write "<param name='BackStyle' value='1'>"+CrLf
Response.write "</object>"+CrLf
Response.write "</td>"+CrLf
Response.write "</tr>"+CrLf
Response.write "</table>"+CrLf
End sub
%>
<body>
<%
Dim VarDataArray(11,1)
Dim VarXlabelsArray(11)
Dim VarLegendLabelsArray(1)
' Fill in the data you want to show in a array
length = Request.Form("new_length")
rho = Request.Form("new_rho")
mflow = Request.Form("new_mflow")
u = Request.Form("new_u")
cp = Request.Form("new_cp")
jordt = Request.Form("new_jordt")
massflow = (mflow / 1000 * rho) / 3600
delta_t0 = Request.Form("new_delta_t0")
for i = 1 to 11
x = (i-1) * length / 10
varXlabelsArray(i)= "" & round(x,0)
tx = delta_t0 * Exp(-u * x / massflow / cp) + jordt
varDataArray(i,1) = tx
next
tx = delta_t0 * Exp(-u * Length / massflow / cp) + jordt
' Set legends
VarLegendLabelsArray(1)="Avis"
'Set dim paa graph
VarXdim=11
LegendDim=1
'Give the graph a name
VarGraphHeader=""
'Draw the graph
CreateGraph VarDataArray, VarXlabelsArray, VarLegendLabelsArray, VarXdim, LegendDim, VarGraphHeader
%>
My problem is, that the the color of some of the labels are green and the border around the graph is also green, how can I change these parameters?
Does any of U know a better ActiveX component for making 2d-graphs?
