Hola a todos.
He bajado el control RMChart (www.rmchart.com) para hacer un grafico desde
ASP, pero no me funciona. Mi codigo es:
<html><head><title>titulo</title></head>
<!--METADATA NAME="RMChart Library" TYPE="TypeLib"
UUID="{826a52db-2d0a-4c50-82bc-977554f1361b}"-->
<body onLoad="LoadProc()">
<OBJECT classid="clsid:D761D993-C91A-4DD8-B121-15EFA6D0C35A" id=Chart
width0% heightP0></OBJECT>
<script language="VBScript">
Sub LoadProc()
msgbox("entra")
With Chart
.Reset
msgbox("reset")
.SetProperties , , Default, RMC_CTRLSTYLEFLAT,""
.AddRegion
With .Region(1)
.SetProperties 5, 5, -5, -5, ""
.AddGrid
With .Grid
.SetProperties Default, FALSE, 0, 0, 0, 0
End With 'Grid
.AddDataAxis
With .DataAxis(1)
.SetProperties RMC_DATAAXISLEFT, 0, 100, 11, 8,
Default, Default, RMC_LINESTYLESOLID, TRUE, "", ""
End With 'DataAxis(1)
.AddLabelAxi s
With .LabelAxis
.SetProperties 1, 5, RMC_LABELAXISBOTTOM, 8, Default,
RMC_TEXTCENTER, Default, RMC_LINESTYLESOLID, ""
End With 'LabelAxis
.AddBarSeries
.BarSeries(1).SetProperties 3, RMC_BAR_FLAT,
FALSE, EasterPurple, FALSE, 1, RMC_VLABEL_NONE, 1, RMC_HATCHBRUSH_OFF
.BarSeries(1).DataString = "0*2*0*0*0*0*0*0*0"
.AddBarSeries
.BarSeries(2).SetProperties 3, RMC_BAR_FLAT,
FALSE, EasterPurple, FALSE, 1, RMC_VLABEL_NONE, 1, RMC_HATCHBRUSH_OFF
.BarSeries(2).DataString =
"0*0*0*2*13.5*0*0*0*0"
.AddBarSeries
.BarSeries(3).SetProperties 3, RMC_BAR_FLAT,
FALSE, EasterPurple, FALSE, 1, RMC_VLABEL_NONE, 1, RMC_HATCHBRUSH_OFF
.BarSeries(3).DataString =
"0*13.5*0*0*5*8*0*0*0*0"
End With 'Region(1)
nRetVal = .Draw(-1)
End With
End Sub
</script>
</body>
</html>
El UUID y el Sclid los he sacado con el OLEVIEW.exe, al ver la pagina me
aparece un mensaje que dice: HAGA CLICK AQUI PARA EJECUTAR UN CONTROL ACTIVEX
EN ESTA PAGINA y cuan do hago eso no me muestra nada en pantalla, aparte de
un error de Script en la linea 16, donde esta el .Reset y dice: EL OBJETO NO
ACEPTA ESTA PROPIEDAD LO METODO: 'RESET'
Alguien tiene alguna solucion?
Gracias.
Leer las respuestas