Visual Basic para Aplicaciones - WebBrowser OCX en XP

Life is soft - evento anual de software empresarial
 
Vista:

WebBrowser OCX en XP

Publicado por Carlos (1 intervención) el 02/06/2005 19:15:33

Tengo un el siguiente codigo que encontre de un template para hacer un screensaver, al cual le quiero colocar un control WebBrowser :

Select Case Mid$(UCase$(Trim$(Command$)), 1, 2)
Case "/S"


Load frmScreenSaver



frmScreenSaver.web.Width = Screen.Width - 100
frmScreenSaver.web.Height = Screen.Height - frmScreenSaver.cmdFordward.Height * 4
frmScreenSaver.lblStatus.Top = frmScreenSaver.web.Top + frmScreenSaver.web.Height + 30
frmScreenSaver.lblSite.Top = frmScreenSaver.web.Top + frmScreenSaver.web.Height + 30
frmScreenSaver.lblRotation.Top = frmScreenSaver.lblStatus.Top + frmScreenSaver.lblStatus.Height + 30


If frmScreenSaver.web Is Nothing Then
MsgBox "es nada"
Else
Call frmScreenSaver.web.Navigate(App.Path & "/home.htm")
End If

El problema es que dentro del Entorno de Visual Basic funciona perfectamenta, todas las formas tienene el Option Explicit y cuando le doy Ctrl + F5 corre bien, sin embargo cuando genero el Scrensaver.scr y trato de ejecutarlo, ni siquiera me aparece el Mensaje del MsgBox 'es nada', sino que aparce Error 91 Object o la variable de bloque With no esta establecida, alguna pista al respecto?

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder