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

146 - Opciones del control WebBrowser - ExecWb

En esta página se listan 10 opciones de las mas comunes para utilizar el método ExecWb del control WebBrowser para utilizar los siguientes comandos y opciones

Por ejemplo:

Diálogo de Imprimir
Diálogo de Configurar página Web
Diálogo Vista preeliminar del Documento
Ventana Propiedades del documento
Comando Cortar, Copiar, Pegar y seleccionar Todo
Ventana para buscar texto en el Documento
Diálogo Guardar página
Cambiar el tamaño de la fuente de la página web

Estos son algunos de los comandos, ya que el método ExecWb posee algunos otros.

Para el ejemplo colocar

10 CommandButton, Command1, Command2 etc...
Colocar un control Web en el formulario llamado WebBrowser

Código en un formulario :

Private Sub Command1_Click() On Local Error Resume Next ' Diálogo de Configurar Página WebBrowser.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command10_Click() ' Cuadro de diálogo Abrir Como del WebBrowser WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0 End Sub Private Sub Command2_Click() On Local Error Resume Next ' Invoca al Diálogo de Imprimir WebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command3_Click() On Local Error Resume Next ' Vista Preliminar WebBrowser.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command4_Click() On Local Error Resume Next 'Ventana Propiedades de la página WebBrowser.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command5_Click() On Local Error Resume Next ' Opción Cortar texto del Webbrowser WebBrowser.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command6_Click() On Local Error Resume Next ' Opción Copiar texto del Webbrowser WebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command7_Click() On Local Error Resume Next ' Opción Pegar texto del Webbrowser WebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command8_Click() On Local Error Resume Next WebBrowser.SetFocus ' Opción Seleccionar todo el documento del Webbrowser WebBrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT End Sub Private Sub Command9_Click() On Local Error Resume Next ' Ventana de Buscar WebBrowser.SetFocus SendKeys ("^f") End Sub Private Sub Form_Load() WebBrowser.Navigate "www.google.com" 'Caption de las Opciones Command1.Caption = " Configurar página " Command2.Caption = " Imprimir Página " Command3.Caption = " Vista preeliminar " Command4.Caption = " Ver Propiedades del documento" Command5.Caption = " Cortar Texto " Command6.Caption = " Copiar Texto " Command7.Caption = " Pegar Texto " Command8.Caption = " Seleccionar Todo " Command9.Caption = " Buscar " Command10.Caption = " Guardar página web " End Sub

Hacer zoom a la fuente

Para cambiar el tamaño del texto de la página, se usa el Flag OLECMDID_ZOOM.

Ejemplo

Colcoar en el form un control web
un listbox

Código fuente

Private Sub Form_Load() ' agrega los tamaños With List1 .AddItem "Fuente Muy Grande" .AddItem "Fuente Grande" .AddItem "Fuente mediana" .AddItem "Fuente pequeña" .AddItem "Fuente Muy Pequeña" End With ' carga en el webbrowser la página de google WebBrowser1.Navigate "http://www.google.com" End Sub Private Sub List1_Click() ' cambia el tamaño de la fuente de la página '''''''''''''''''''''''''''''''''''''''''''''''' Select Case List1.ListIndex Case 0 WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4), vbNull Case 1 WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(3), vbNull Case 2 WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(2), vbNull Case 3 WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull Case 4 WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0), vbNull End Select End Sub

Desplegar ventana Agregar a favoritos

ventana de favoritos de windows

Muestra de como abrir la ventana "Agregar a favoritos " de windows, utilizando en este caso una variable de tipo ShellUIHelper

Dim ObjHelper As ShellUIHelper

El método que despliega la ventana para añadir un nuevo item es : AddFavorite. a este método se le debe pasar como parámetro la url o path y el título, por ejemplo

ObjHelper.AddFavorite "http://Google.com.ar" ,"Página de Google"

Importante . Para poder utilizar la clase ShellUIHelper, es necesario tener incorporado en el proyecto, el componente Microsoft internet controls, es decir un control webBrowser

Buscar en Recursos vb