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

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

Contenido

Abrir el cuadro de diálogo " Guardar página web "
Abrir el cuadro de diálogo guardar en un directorio o carpeta específico
Relacionados

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

Abrir el diálogo guardar en un directorio o carpeta específico

Este ejemplo es igual al anterior, pero se agregó una opción para poder desplegar el cuadro de diálogo en el directorio que le indiquemos, ya que por defecto, el webBrowser recuerda la última carpeta que hemos indicado o accedido por última vez, o también establecido desde el propio internet explorer.

Para ello, el ejemplo modifica la clave SaveDirectory de la rama Software\Microsoft\Internet Explorer\Main del registro, y en dicha clave escribimos como valor el path o ruta de la carpeta que deseemos que muestre el cuadro de diálogo.

Descargar ejemplo

Captura de pantalla

Recursos vb - Relacionados

WebBrowser - Ejemplos

Buscar en Recursos vb