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.
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.
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
'Navegamos al cargar el formulario a la página de Google.
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