Red de conocimiento informático - Problemas con los teléfonos móviles - Problemas con el control WebBrowser1 en vb6.0

Problemas con el control WebBrowser1 en vb6.0

Los lectores que están familiarizados con los scripts saben que puede agregar scripts a la página para responder a eventos de elementos, como el evento OnClick de hipervínculos y el evento OnMouseMove de imágenes, y también puede permitir que los programas VB respondan a estos eventos. El siguiente es el código para que VB responda al evento Click de un botón en la página:

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".