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
0