Cómo controlar eventos de documento en una aplicación de Visual Basic .NET

Seleccione idioma Seleccione idioma
Id. de artículo: 311284 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se muestra cómo capturar eventos de documento para el control WebBrowser en Visual Basic. NET.

Requisitos

En la lista siguiente se describe el hardware, el software, la infraestructura de red y los service pack recomendados que se necesitarán:
  • Microsoft Visual Studio .NET
  • Microsoft Internet Explorer 5.5 Service Pack 2 (SP2) o posterior
En este artículo se supone que está familiarizado con los temas siguientes:
  • Visual Studio .NET
  • Internet Explorer
  • Control WebBrowser

Descripción de la técnica

El control WebBrowser es un control sencillo para trabajar con Visual Studio .NET o las versiones anteriores de Microsoft Visual Studio. Sin embargo, le resultará más difícil de controlar los eventos de un control WebBrowser en Visual Studio. NET.

La interfaz de evento siguiente expone la mayoría de los eventos de documento que controlar en la aplicación:
Mshtml.HTMLDocumentEvents2_Event
				
para controlar el evento, debe crear su propio procedimiento Sub o función que se puede llamar a cuando se produce el evento. Debe coincidir con la firma del evento que desencadena. Por ejemplo, el siguiente procedimiento Sub controla el evento MouseOver del documento:
Private Sub document_onmouseover(ByVal e As mshtml.IHTMLEventObj)
				
después el controlador de evento es en su lugar, debe enlazar el evento. Puede enlazar un evento en cualquier momento después del evento DocumentComplete en se activa el control de WebBrowser. Aquí es la sintaxis el enlace:
AddHandler CType(document, _
mshtml.HTMLDocumentEvents2_Event).onmouseover, _
AddressOf Me.document_onmouseover
				
este código llama a la instrucción AddHandler y utiliza la función CType para pasar el evento. La función CType convierte el objeto de documento al tipo adecuado ( mshtml.HTMLDocumentEvents2_Event ) y, a continuación, se pasa el evento OnMouseOver del. El procedimiento Sub de Me.document_onmouseover se pasa al segundo parámetro, la instrucción AddressOf , que proporciona la dirección de su controlador.

Crear el proyecto y agregar código

En el ejemplo siguiente, el control WebBrowser se desplaza a http://www.microsoft.com. Después de cargar la página, en el ejemplo enlaza el OnMouseOver y los eventos de OnClick . El ejemplo a continuación, agrega texto a un cuadro de lista siempre que los eventos se desencadenan.
  1. Inicie Visual Studio NET..
  2. Abra un nuevo proyecto de aplicación para Windows en Visual Basic .NET
  3. Agregue una referencia a Microsoft.Mshtml en el proyecto.
  4. En el cuadro de herramientas, haga clic en General .
  5. Haga clic con el botón secundario en el panel abrir y, a continuación, haga clic en Personalizar cuadro de herramientas .
  6. Active la casilla de verificación Explorador Web de Microsoft y, a continuación, haga clic en Aceptar .
  7. En el cuadro de herramientas, haga doble clic en explorador .
  8. En el cuadro de herramientas, haga clic en Formularios Windows Forms y haga doble clic en el control ListBox .
  9. Organice los controles para que sean fáciles de ver en el formulario.
  10. Agregue el código siguiente a la parte superior de AssemblyInfo.vb, reemplace las oraciones de importación existentes
    Imports System
    Imports System.Drawing
    Imports System.Collections
    Imports System.ComponentModel
    Imports System.Windows.Forms
    Imports System.Data
    Imports System.Reflection
    Imports System.Runtime.InteropServices
    Imports System.Threading
    Imports System.Diagnostics
    
  11. Add the following code between Windows Form Designer generated code and End Class in the code view of Form1.vb Public
    Shared dwCookie2 As Integer
        Public Sub add_list(ByVal a As Object)
            ListBox1.Items.Insert(0, a)
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            AxWebBrowser1.Navigate2("http://www.microsoft.com")
            Dim x As IEEvents = New IEEvents(AxWebBrowser1)
            x.fm = Me
        End Sub
    
        Private Sub AxWebBrowser1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWebBrowser1.Enter
    
        End Sub
    
        Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
            Dim doc As mshtml.HTMLDocument
            doc = AxWebBrowser1.Document
    
            AddHandler CType(doc, _
                mshtml.HTMLDocumentEvents2_Event).onclick, AddressOf Document_onclick
            AddHandler CType(doc, _
         mshtml.HTMLDocumentEvents2_Event).onmouseover, AddressOf Document_onmouseover
        End Sub
    
        Private Sub AxWebBrowser1_BeforeNavigate2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_BeforeNavigate2Event) Handles AxWebBrowser1.BeforeNavigate2
            Dim doc As mshtml.HTMLDocument
            doc = AxWebBrowser1.Document
    
            RemoveHandler CType(doc, _
                mshtml.HTMLDocumentEvents2_Event).onclick, _
                AddressOf Document_onclick
            RemoveHandler CType(doc, _
                mshtml.HTMLDocumentEvents2_Event).onmouseover, _
                AddressOf Document_onmouseover
        End Sub
        Private Sub Document_onmouseover(ByVal e As mshtml.IHTMLEventObj)
            ListBox1.Items.Insert(0, "onMouseOver: " & _
                e.srcElement.tagName.ToString())
        End Sub
        Private Function Document_onclick(ByVal e As mshtml.IHTMLEventObj) _
                As Boolean
            ListBox1.Items.Insert(0, "onClick: " & _
                e.srcElement.tagName.ToString())
            Return True
        End Function
    
  12. Add the following code after End Class
    Public Class IEHTMLDocumentEvents
        Implements mshtml.HTMLDocumentEvents2
        Public Sub onactivate(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onactivate
    
        End Sub
    
        Public Sub onafterupdate(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onafterupdate
    
        End Sub
    
        Public Function onbeforeactivate(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onbeforeactivate
            Return True
        End Function
    
        Public Function onbeforedeactivate(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onbeforedeactivate
            Return True
        End Function
    
        Public Sub onbeforeeditfocus(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onbeforeeditfocus
    
        End Sub
    
        Public Function onbeforeupdate(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onbeforeupdate
            Return True
        End Function
    
        Public Sub oncellchange(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.oncellchange
    
        End Sub
    
        Public Function onclick(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onclick
            Return True
        End Function
    
        Public Function oncontextmenu(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.oncontextmenu
            Return True
        End Function
    
        Public Function oncontrolselect(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.oncontrolselect
            Return True
        End Function
    
        Public Sub ondataavailable(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.ondataavailable
    
        End Sub
    
        Public Sub ondatasetchanged(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.ondatasetchanged
    
        End Sub
    
        Public Sub ondatasetcomplete(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.ondatasetcomplete
    
        End Sub
    
        Public Function ondblclick(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.ondblclick
            Return True
        End Function
    
        Public Sub ondeactivate(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.ondeactivate
    
        End Sub
    
        Public Function ondragstart(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.ondragstart
            Return True
        End Function
    
        Public Function onerrorupdate(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onerrorupdate
            Return True
        End Function
    
        Public Sub onfocusin(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onfocusin
    
        End Sub
    
        Public Sub onfocusout(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onfocusout
    
        End Sub
    
        Public Function onhelp(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onhelp
            Return True
        End Function
    
        Public Sub onkeydown(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onkeydown
    
        End Sub
    
        Public Function onkeypress(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onkeypress
            Return True
        End Function
    
        Public Sub onkeyup(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onkeyup
    
        End Sub
    
        Public Sub onmousedown(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onmousedown
    
        End Sub
    
        Public Sub onmousemove(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onmousemove
    
        End Sub
    
        Public Sub onmouseout(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onmouseout
    
        End Sub
    
        Public Sub onmouseover(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onmouseover
    
        End Sub
    
        Public Sub onmouseup(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onmouseup
    
        End Sub
    
        Public Function onmousewheel(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onmousewheel
            Return True
        End Function
    
        Public Sub onpropertychange(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onpropertychange
    
        End Sub
    
        Public Sub onreadystatechange(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onreadystatechange
    
        End Sub
    
        Public Sub onrowenter(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onrowenter
    
        End Sub
    
        Public Function onrowexit(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onrowexit
            Return True
        End Function
    
        Public Sub onrowsdelete(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onrowsdelete
    
        End Sub
    
        Public Sub onrowsinserted(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onrowsinserted
    
        End Sub
    
        Public Sub onselectionchange(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements mshtml.HTMLDocumentEvents2.onselectionchange
    
        End Sub
    
        Public Function onselectstart(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onselectstart
            Return True
        End Function
    
        Public Function onstop(ByVal pEvtObj As mshtml.IHTMLEventObj) As Boolean Implements mshtml.HTMLDocumentEvents2.onstop
            Return True
        End Function
    End Class
    
    Public Class IEEvents
        Implements SHDocVw.DWebBrowserEvents2
        Public fm As Form1
        Private icp As System.Runtime.InteropServices.UCOMIConnectionPoint
        Private cookie As Integer = -1
        Private m_ie As AxSHDocVw.AxWebBrowser
    
        Public Sub New(ByRef ie As AxSHDocVw.AxWebBrowser)
            ' Call QueryInterface for IConnectionPointContainer
            m_ie = ie
            Dim icpc As System.Runtime.InteropServices.UCOMIConnectionPointContainer = CType(ie.GetOcx(), System.Runtime.InteropServices.UCOMIConnectionPointContainer)
            ' Find the connection point for the
            ' DWebBrowserEvents2 source interface
            Dim g As Guid = GetType(SHDocVw.DWebBrowserEvents2).GUID
            icpc.FindConnectionPoint(g, icp)
    
            'Pass a pointer to the host to the connection point
            icp.Advise(Me, cookie)
    
            ' Show the browser
            ie.Visible = True
            Dim oURL As Object = "http://www.microsoft.com"
            Dim oEmpty As Object = ""
            ie.Navigate2(oURL, oEmpty, oEmpty, oEmpty, oEmpty)
    
        End Sub
    
    
        Public Sub BeforeNavigate2(ByVal pDisp As Object, ByRef URL As Object, ByRef Flags As Object, ByRef TargetFrameName As Object, ByRef PostData As Object, ByRef Headers As Object, ByRef Cancel As Boolean) Implements SHDocVw.DWebBrowserEvents2.BeforeNavigate2
    
        End Sub
    
        Public Sub ClientToHostWindow(ByRef CX As Integer, ByRef CY As Integer) Implements SHDocVw.DWebBrowserEvents2.ClientToHostWindow
    
        End Sub
    
        Public Sub CommandStateChange(ByVal Command As Integer, ByVal Enable As Boolean) Implements SHDocVw.DWebBrowserEvents2.CommandStateChange
    
        End Sub
    
        Public Sub DocumentComplete(ByVal pDisp As Object, ByRef URL As Object) Implements SHDocVw.DWebBrowserEvents2.DocumentComplete
            Dim doc As mshtml.HTMLDocument = CType(CType(pDisp, SHDocVw.IWebBrowser2).Document, mshtml.HTMLDocument)
            Dim pConPtCon As System.Runtime.InteropServices.UCOMIConnectionPointContainer = CType(doc, System.Runtime.InteropServices.UCOMIConnectionPointContainer)
            Dim guid As Guid = System.Type.GetType("mshtml.HTMLDocumentEvents2").GUID
            Dim pConPt As System.Runtime.InteropServices.UCOMIConnectionPoint
            pConPtCon.FindConnectionPoint(guid, pConPt)
            Dim d As IEHTMLDocumentEvents = New IEHTMLDocumentEvents
            pConPt.Advise(d, Form1.dwCookie2)
    
            Dim iEvent As mshtml.HTMLDocumentEvents2_Event
            iEvent = CType(doc, mshtml.HTMLDocumentEvents2_Event)
            AddHandler iEvent.onclick, AddressOf ClickEventHandler
            AddHandler iEvent.onmouseover, AddressOf MouseOverEventHandler
        End Sub
        Private Function ClickEventHandler(ByVal e As mshtml.IHTMLEventObj) As Boolean
            fm.add_list(e.type + ":" + e.srcElement.tagName)
            Return True
        End Function
        Private Sub MouseOverEventHandler(ByVal e As mshtml.IHTMLEventObj)
            fm.add_list(e.type + ":" + e.srcElement.tagName)
        End Sub
        Public Sub DownloadBegin() Implements SHDocVw.DWebBrowserEvents2.DownloadBegin
    
        End Sub
    
        Public Sub DownloadComplete() Implements SHDocVw.DWebBrowserEvents2.DownloadComplete
    
        End Sub
    
        Public Sub FileDownload(ByRef Cancel As Boolean) Implements SHDocVw.DWebBrowserEvents2.FileDownload
    
        End Sub
    
        Public Sub NavigateComplete2(ByVal pDisp As Object, ByRef URL As Object) Implements SHDocVw.DWebBrowserEvents2.NavigateComplete2
    
        End Sub
    
        Public Sub NavigateError(ByVal pDisp As Object, ByRef URL As Object, ByRef Frame As Object, ByRef StatusCode As Object, ByRef Cancel As Boolean) Implements SHDocVw.DWebBrowserEvents2.NavigateError
    
        End Sub
    
        Public Sub NewWindow2(ByRef ppDisp As Object, ByRef Cancel As Boolean) Implements SHDocVw.DWebBrowserEvents2.NewWindow2
    
        End Sub
    
        Public Sub OnFullScreen(ByVal FullScreen As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnFullScreen
    
        End Sub
    
        Public Sub OnMenuBar(ByVal MenuBar As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnMenuBar
    
        End Sub
    
        Public Sub OnQuit() Implements SHDocVw.DWebBrowserEvents2.OnQuit
    
        End Sub
    
        Public Sub OnStatusBar(ByVal StatusBar As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnStatusBar
    
        End Sub
    
        Public Sub OnTheaterMode(ByVal TheaterMode As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnTheaterMode
    
        End Sub
    
        Public Sub OnToolBar(ByVal ToolBar As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnToolBar
    
        End Sub
    
        Public Sub OnVisible(ByVal Visible As Boolean) Implements SHDocVw.DWebBrowserEvents2.OnVisible
    
        End Sub
    
        Public Sub PrintTemplateInstantiation(ByVal pDisp As Object) Implements SHDocVw.DWebBrowserEvents2.PrintTemplateInstantiation
    
        End Sub
    
        Public Sub PrintTemplateTeardown(ByVal pDisp As Object) Implements SHDocVw.DWebBrowserEvents2.PrintTemplateTeardown
    
        End Sub
    
        Public Sub PrivacyImpactedStateChange(ByVal bImpacted As Boolean) Implements SHDocVw.DWebBrowserEvents2.PrivacyImpactedStateChange
    
        End Sub
    
        Public Sub ProgressChange(ByVal Progress As Integer, ByVal ProgressMax As Integer) Implements SHDocVw.DWebBrowserEvents2.ProgressChange
    
        End Sub
    
        Public Sub PropertyChange(ByVal szProperty As String) Implements SHDocVw.DWebBrowserEvents2.PropertyChange
    
        End Sub
    
        Public Sub SetSecureLockIcon(ByVal SecureLockIcon As Integer) Implements SHDocVw.DWebBrowserEvents2.SetSecureLockIcon
    
        End Sub
    
        Public Sub StatusTextChange(ByVal Text As String) Implements SHDocVw.DWebBrowserEvents2.StatusTextChange
    
        End Sub
    
        Public Sub TitleChange(ByVal Text As String) Implements SHDocVw.DWebBrowserEvents2.TitleChange
    
        End Sub
    
        Public Sub UpdatePageStatus(ByVal pDisp As Object, ByRef nPage As Object, ByRef fDone As Object) Implements SHDocVw.DWebBrowserEvents2.UpdatePageStatus
    
        End Sub
    
        Public Sub WindowClosing(ByVal IsChildWindow As Boolean, ByRef Cancel As Boolean) Implements SHDocVw.DWebBrowserEvents2.WindowClosing
    
        End Sub
    
        Public Sub WindowSetHeight(ByVal Height As Integer) Implements SHDocVw.DWebBrowserEvents2.WindowSetHeight
    
        End Sub
    
        Public Sub WindowSetLeft(ByVal Left As Integer) Implements SHDocVw.DWebBrowserEvents2.WindowSetLeft
    
        End Sub
    
        Public Sub WindowSetResizable(ByVal Resizable As Boolean) Implements SHDocVw.DWebBrowserEvents2.WindowSetResizable
    
        End Sub
    
        Public Sub WindowSetTop(ByVal Top As Integer) Implements SHDocVw.DWebBrowserEvents2.WindowSetTop
    
        End Sub
    
        Public Sub WindowSetWidth(ByVal Width As Integer) Implements SHDocVw.DWebBrowserEvents2.WindowSetWidth
    
        End Sub
    End Class
    
    

Notas adicionales

  • Este proceso es el mismo si automatizar Internet Explorer. Reemplazar AxWebBrowser1 por su nombre de variable local para Internet Explorer.
  • En este ejemplo no tiene en cuenta conjuntos de marcos. Al explorar un conjunto de marcos, no puede ver los eventos de la aplicación. Si es necesario en la aplicación, debe agregar código para controlar la posibilidad de conjunto de marcos.

Referencias

Para obtener más información sobre el control WebBrowser, así como los métodos, las propiedades y los eventos que expone el control WebBrowser, consulte la documentación de MSDN siguiente:
http://msdn2.microsoft.com/en-us/library/Aa752043.aspx
Para obtener más información acerca de cómo desarrollar soluciones basadas en Web para Microsoft Internet Explorer, consulte los sitios Web de Microsoft siguientes:
http://msdn.microsoft.com/ie/

http://support.microsoft.com/iep

Propiedades

Id. de artículo: 311284 - Última revisión: domingo, 13 de mayo de 2007 - Versión: 3.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
Palabras clave: 
kbmt kbhowtomaster kbwebbrowser KB311284 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 311284

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com