Ver Mensaje Individual
  #17 (permalink)  
Antiguo 10/07/2007, 05:56
bunk
 
Fecha de Ingreso: junio-2007
Mensajes: 15
Antigüedad: 16 años, 11 meses
Puntos: 0
Re: Problema con ActiveX y WebForm

a ver, tengo una página Visor.aspx que es donde esta el <object id=Xpress1> del ActiveX y luego en Visor.aspx.vb en el page load inicializo el ActiveX de esta forma:

Response.Write("<SCRIPT LANGUAGE='VBScript'>" + Chr(13))
Response.Write("Dim dlFileName" + Chr(13))
Response.Write("Dim dlFileNameLocal" + Chr(13))
Response.Write("Dim numPages" + Chr(13))
Response.Write("Sub window_OnLoad()" + Chr(13))
Response.Write(" where = location.protocol & ""//"" & location.hostname" + Chr(13))
Response.Write(" Xpress1.PageNbr = 1" + Chr(13))
Response.Write(" Xpress1.UndoEnabled = True" + Chr(13))
Response.Write(" Xpress1.ManagePalette = False" + Chr(13))
Response.Write(" Xpress1.Notify = True" + Chr(13))
Response.Write(" Xpress1.ProgressEnabled = False" + Chr(13))
Response.Write(" Xpress1.Palette = 1 'Fixed" + Chr(13))
Response.Write(" Xpress1.BorderType = 2" + Chr(13))
Response.Write(" Xpress1.ShowHourglass = True" + Chr(13))
Response.Write(" Xpress1.MousePointer = 21 'Hand" + Chr(13))
Response.Write(" dlfilename = " + Chr(34) + datoOrigen + Chr(34) + Chr(13)) 'Tomo el valor de la dll
Response.Write(" dlfilenamelocal = " + Chr(34) + datoEliminar + Chr(34) + Chr(13))
Response.Write(" Xpress1.filename = dlfilename" + Chr(13))
Response.Write(" If Xpress1.ImagError <>0 then" + Chr(13))
Response.Write(" dlfilename = " + Chr(34) + datoOrigen + Chr(34) + Chr(13)) 'Tomo el valor de la dll
Response.Write(" Xpress1.filename = dlfilename" + Chr(13))
Response.Write(" End If" + Chr(13))
Response.Write(" numPages = " & Str(numPages) + Chr(13))
Response.Write(" Xpress1.Scrollbars = 3" + Chr(13))
Response.Write(" Xpress1.AutoSize = 1" + Chr(13))
Response.Write(" Xpress1.Antialias = 1" + Chr(13))
Response.Write("end sub" + Chr(13))
Response.Write("</SCRIPT>" + Chr(13))

El error de que es necesario un objeto Xpress1 lo da en la primera referencia a él, en esta línea:

Xpress1.PageNbr = 1

y para probar lo que me sugeriste de la id metí este codigo en vbscript directamente en el Visor.aspx (en un <IMG id=prueba> que ejecuta una func al ser pulsado):

Sub prueba_onclick
alert(document.getElementsByTagName("object")(1).i d)
End Sub

Un saludo!!