Problemas con el control WebBrowser1 en vb6.0
Primero, cree un nuevo proyecto, agregue un control de navegador web en Form1 y luego agregue el siguiente código en Form1:
Opción explícita
Sub público Some_Procedure()
MsgBox "Hiciste clic en el botón".
End Sub
Subventana privada Body_Load()
Descargar página en blanco
WebBrowser1. Navegación 2 "Acerca de: En blanco"
Conector final
Navegador web secundario privado 1_documento completo (ByVal pDisp como objeto, URL como variable)
Crear evento Clase responsiva
Dim cfForward to clsForward
Define el código HTML que se muestra en el navegador, que contiene un botón btnMyButton.
Atenuar sHTML como cadena
sHTML = " ltP gtEsto es un texto."
sHTML = sHTML amp " ltP gtEsto es un botón". >
sHTML = sHTML & "ltBUTTON ID = btnMyButton gt"
sHTML = sHTML & "Haga clic en este botón. lt/BUTTON >"
Cambiar el código HTML Escribir en el navegador
Navegador web1. Document.body.innerHTML = sHTML
Conecte la clase de respuesta al evento al botón btnMyButton en la página.
Establecer cfForward = Nuevo clsForward
cfForward. Establecer destino I, "Algunos programas"
WebBrowser1. Documento.Todos("btnMyButton ").
onclick = cfForward
Conector final
Agregue el módulo de clase al proyecto, establezca el atributo Nombre del módulo de clase en clsForward y agregue el siguiente código en clsForward:
Opción explícita
Marcar objeto como objeto
Método Dim como cadena
Se crea una instancia de Dim como booleano
Subclase privada _Initialize( )
bInstantiated = False
Conector final
Subconjunto público _ Destino (o en Objeto como objeto, sinMethod como cadena)
Establecer oObject = oInObject
sMethod = sinMethod
bInstantiated = True
Conector final
Sub público My_Default_Method( )
Si lo hay, entonces
Objeto CallByName, sMethod, VbMethod
Si... terminará
Finalizar conector
Ejecutar el programa y haga clic en el botón "Haga clic en este botón" en el navegador web. El programa mostrará un cuadro de mensaje que indicará "Hiciste clic en el botón".