Sección de códigos , trucos y ejemplos para visual basic

239 - Referencia Microsoft Internet Controls

Ejemplo simple que muestra como utilizar la referencia de Microsoft Internet Controls para abrir una instancia del internet Explorer y manipular algunas propiedades del navegador desde el código

Para esto hay que chequear desde el menú Referencias : Microsoft Internet controls.

En el código se instancia una variable de tipo InternetExplorer para póder acceder al navegador. Al presionar un CommandButton, se elimina la barra de menú, la barra de estado, y la barra de herramientas. Luego se navega a una página y se hace la aplicación visible. es decir quedaría como una ventana PopUp

Por último al descargar el formulario se cierra la ventana con el método Quit.

vista de la instancia del navegador

Hay muchas otras propiedades y métodos como FullScreen ( pantalla completa ), método ExecWB ( copiar, pegar, seleccionar, vista preeliminar etc..), métodos GoBack, GoForward, GoHome, Refresh, Navigate, Stop ( para manipular la navegación), propiedad Resizable que indica si se puede redimensionar la ventana, y varias otras

Código fuente en el formulario con un CommandButton

Option Explicit '*************************************************************************** ' Indicar la referencia a Microsoft Internet Controls '*************************************************************************** 'Variable de objeto de aplicación Ie Dim Internet_Explorer As New InternetExplorer Private Sub Command1_Click() ' Elimina la barra de direcciones Internet_Explorer.AddressBar = False 'Elimina la barra de menú Internet_Explorer.MenuBar = True 'Elimina la barra de herramientas Internet_Explorer.ToolBar = False 'Elimina la barra de herramientas Internet_Explorer.StatusBar = False ' Navega a la página indicada Internet_Explorer.Navigate ("www.google.com") ' Hace visible el explorador Internet_Explorer.Visible = True End Sub Private Sub Command2_Click() MsgBox Internet_Explorer.Stop End Sub Private Sub Form_Load() Command1.Caption = " www.Google.com " End Sub Private Sub Form_Unload(Cancel As Integer) On Local Error Resume Next If Not Internet_Explorer Is Nothing Then 'cierra la ventana del navegador si estaba abierta Internet_Explorer.Quit Set Internet_Explorer = Nothing End If End Sub

Nota: en este enlace , Acceder a los eventos de una instancia del internet explorer , hay un ejemplo que muestra como poder desde visual basic, abrir una instancia del navegador, y capturar algunos eventos, como el evento Progresschange, StatusChange, cuando se cierra la ventana , cuando se produce un error , cuando se abre una ventana popup y algunos otros

Recursos visual basic 6.0 - Enlaces relacionados

Control webbrowser - Comandos para cortar, copiar, imprimir etc..

Buscar en Recursos vb