Trabajar con graficas

09/10/2007 - 17:11 por Mauricio Hincapie | Informe spam
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.

Preguntas similare

Leer las respuestas

#1 Matias Iacono
09/10/2007 - 17:37 | Informe spam
No he usado este control. De cualquier manera un ActiveX para la web no es
algo muy optimo.

Como recomendación, no lo uses. Mas si vas a colocar tu web al publico. Te
puede traer problemas de seguridad, y entre otros, el que estas teniendo.

Saludos.

Matías Iacono
Microsoft MVP
Orador Regional INETA
http://mvpfiles.spaces.live.com


"Mauricio Hincapie" wrote:

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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida