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

437 - Deshabilitar menú en control web

<Volver> - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo para no desplegar el menú contextual en un Microsoft internet control

Pasos para el ejemplo

Iniciar un nuevo proyecto de visual basic y añadir la siguiente referencia

vista previa de la ventana de referencia de vb para añadir Html object library al proyecto

Luego añadir un control web llamado webbrowser1
un textbox y un botón

La función que se dispara al desplegar el menú contextual del webbrowser es OnContextMenu, y esta se coloca con el valor False para no desplegarlo

Código fuente en Form1

Option Explicit ' referencia al documento cargado _ ( con evento para captar -- > OnContextMenu ) Dim WithEvents ReferenciaADocumento As HTMLDocument ' navega a una página Private Sub Command1_Click() WebBrowser1.Navigate Text1.Text End Sub Private Sub Form_Load() Text1.Text = "google.com.ar" Command1.Caption = "Navigate" End Sub 'Pone en False la función que despliega el menú ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function ReferenciaADocumento_OnContextMenu() As Boolean ReferenciaADocumento_OnContextMenu = False End Function ' referencia al documento que se carga ''''''''''''''''''''''''''''''''''''''''''''' Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set ReferenciaADocumento = WebBrowser1.Document End Sub

Ejemplo 2

Este otro ejemplo solo permite desplegar el menú si en el control web se cargan las páginas de google o la página de Yahoo, colocando el evento OnContextMenu en true , si no se establece en False

Option Explicit Dim WithEvents Pagina As HTMLDocument Const URL1 As String = "google.com" Const URL2 As String = "yahoo.com" Private Sub Command1_Click() WebBrowser1.Navigate Text1.Text End Sub Private Sub Form_Load() Text1.Text = "google.com.ar" Command1.Caption = "Navigate" End Sub Private Function Pagina_OnContextMenu() As Boolean If InStr(Pagina.URL, URL1) <> 0 Or InStr(Pagina.URL, URL2) <> 0 Then ' habilita el menú para esas dos páginas Pagina_OnContextMenu = True End If End Function ' referencia a la página actual ''''''''''''''''''''''''''''''''''''''''''''' Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set Pagina = WebBrowser1.Document End Sub

Recursos Visual basic 6.0

Buscar en Recursos vb