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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

1 - Abrir cuadro de Diálogo " Guardar como ..." del control webBrowser

Ejemplo del método ExecWb para abrir el cuadro de diálogo " Guardar página web "

Ejemplo del método ExecWb del control webBrowser del visual basic para poder abrir el cuadro de diálogo Guardar como para guardar la página web cargada en el control.

vista del cuadro de diálogo para guardar la pagina web

Aparte de este cuadro de diálogo, hay muchas otras opciones que se pueden realizar con este método, como por ejemplo la de copiar un texto y pegarlo, imprimir la página web cargada, seleccionar texto, copiar , cortar , ver el cuadro propiedades de página web, y muchas otras, solo hay que hecharle un ojo a las constantes que se le pasan al primer parámetro del método ExecWb.

Si querés ver un ejemplo de esto último podés hacerlo en este enlace: Ejemplos del Método ExecWb del control Microsoft Internet Control

Para probar el ejemplo que permite Abrir el Cuadro de Diálogo Guardar Página web como ... , colocar en un formulario un Command1 y también un control WebBrowser llamado WebBrowser 1.

Nota: el control WebBrowser se encuentra bajo el nombre de Microsoft Internet Controls desde el menú Proyecto - Componentes de vb

Código fuente en un formulario:

Option Explicit Private Sub Command1_Click() 'Abrimos el cuadro de diálogo abrir Como para el WebBrowser WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0 End Sub Private Sub Form_Load() Command1.Caption = " Guardar " 'Navegamos a una página de ejemplo mediante el método Navigate MsgBox "Ejemplo que muestra como abrir el cuadro dialogo" & _ "guardar como para un control WEbBrowser", vbInformation WebBrowser1.Navigate "www.google.com" End Sub Private Sub Form_Resize() ' esto es solo para redimensionar el control web WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight - Command1.Height 'Posiciona el commandButton en el formulario Command1.Top = WebBrowser1.Height Command1.Left = ScaleWidth - Command1.Width End Sub

Recursos vb - Otros enlaces relacionados

Tutorial básico del control WebBrowser

Buscar en Recursos vb