Numer ID artyku�u: 311284 - Ostatnia weryfikacja: 13 maja 2007 - Weryfikacja: 2.2

JAK: Obs�ugiwanie zdarze� dokument�w w aplikacji programu Visual Basic .NET

Zobacz jakich produkt�w dotycz� zawarte w tym artykule porady.

Porada dotycz�ca systemuTen artyku� dotyczy innego ni� obecnie u�ywany systemu operacyjnego. Zawarto�� artyku�u, kt�ra mo�e by� nieodpowiednia do u�ywanego systemu, zosta�a wy��czona.

Ten artyku� zosta� opublikowany wcze�niej pod numerem PL311284

Streszczenie

W tym artykule opisano spos�b przechwytywania zdarze� dokument�w w formancie WebBrowser w programie Visual Basic .NET.

Powr�t na g�r�

Wymagania

Poni�ej przedstawiono list� zalecanego sprz�tu, oprogramowania, infrastruktury sieciowej i dodatk�w service pack:

Microsoft Visual Studio .NET
Microsoft Internet Explorer 5.5 z dodatkiem Service Pack 2 (SP2) lub nowszy

W tym artykule zak�ada si�, �e u�ytkownik jest zaznajomiony z nast�puj�cymi tematami:

Visual Studio .NET
Internet Explorer
Formant WebBrowser

Powr�t na g�r�

Opis techniki

W programie Visual Studio .NET i wcze�niejszych wersjach programu Microsoft Visual Studio formant WebBrowser obs�uguje si� stosunkowo �atwo. Obs�ugiwanie zdarze� formantu WebBrowser w programie Visual Studio .NET mo�e by� jednak trudniejsze.

Poni�szy interfejs zdarzenia udost�pnia wi�kszo�� zdarze� dokumentu obs�ugiwanych w aplikacjach:

Mshtml.HTMLDocumentEvents2_Event

Aby obs�u�y� zdarzenie, nale�y utworzy� w�asn� procedur� Sub lub funkcj� wywo�ywan� po wyst�pieniu zdarzenia. Sygnatura wywo�ywanego zdarzenia musi by� zgodna. Na przyk�ad poni�sza procedura Sub obs�uguje zdarzenie MouseOver dokumentu:

Private Sub document_onmouseover(ByVal e As mshtml.IHTMLEventObj)

Po umieszczeniu programu obs�ugi zdarze� nale�y zahaczy� zdarzenie. Zdarzenie mo�na zahaczy� w dowolnym czasie po wyst�pieniu zdarzenia DocumentComplete formantu WebBrowser. Poni�ej znajduje si� sk�adnia zahaczania:

AddHandler CType(document, _
mshtml.HTMLDocumentEvents2_Event).onmouseover, _
AddressOf Me.document_onmouseover

W tym kodzie wywo�ywana jest instrukcja AddHandler i u�ywana funkcja CType do przekazania zdarzenia. Funkcja CType przypisuje obiektowi dokumentu odpowiedni typ (mshtml.HTMLDocumentEvents2_Event) i przekazuje zdarzenie OnMouseOver. Procedura SubMe.document_onmouseover jest przekazywana do drugiego parametru, instrukcji AddressOf, podaj�cej adres programu obs�ugi.

Powr�t na g�r�

Tworzenie projektu i dodawanie kodu

W poni�szym przyk�adzie formant WebBrowser przechodzi do adresu http://www.microsoft.com (http://www.microsoft.com) . Po za�adowaniu strony w przyk�adzie zahaczane s� zdarzenia OnMouseOver oraz OnClick. Nast�pnie po wyst�pieniu zdarzenia dodawany jest tekst do pola listy.

Uruchom program Visual Studio .NET.
Utw�rz nowy projekt Windows Application w programie Visual Basic .NET.
Dodaj odwo�anie do obiektu Microsoft.mshtml w projekcie.
W przyborniku kliknij przycisk General.
Prawym przyciskiem myszy kliknij otwarty panel, a nast�pnie kliknij polecenie Customize Toolbox.
Zaznacz pole wyboru Microsoft Web Browser i kliknij przycisk OK.
W przyborniku kliknij dwukrotnie przycisk Explorer.
W przyborniku kliknij przycisk Windows Forms, a nast�pnie kliknij dwukrotnie formant ListBox.
Rozmie�� formanty, aby by�y �atwo widoczne na formularzu.

Do projektu dodaj nast�puj�cy kod:

Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    AxWebBrowser1.Navigate2("http://www.microsoft.com")
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

Powr�t na g�r�

Uwagi dodatkowe

W przypadku automatyzacji programu Internet Explorer procedura b�dzie wygl�da�a tak samo. Zast�p zmienn� AxWebBrowser1 nazw� zmiennej lokalnej dla programu Internet Explorer.
W tym przyk�adzie nie uwzgl�dnia si� zestaw�w ramek. Po przej�ciu do zestawu ramek zdarzenia w aplikacji mog� by� niewidoczne. Je�li oka�e si� to konieczne, nale�y doda� kod w celu obs�ugi zestawu ramek.

Powr�t na g�r�

Materia�y referencyjne

Aby uzyska� wi�cej informacji dotycz�cych formantu WebBrowser oraz innych metod, w�a�ciwo�ci i zdarze� udost�pnianych przez formant WebBrowser, zajrzyj do nast�puj�cej dokumentacji us�ugi MSDN:

http://msdn2.microsoft.com/en-us/library/Aa752043.aspx (http://msdn2.microsoft.com/en-us/library/Aa752043.aspx)

Aby uzyska� wi�cej informacji dotycz�cych tworzenia rozwi�za� opartych na sieci Web dla programu Internet Explorer, odwied� nast�puj�ce witryny w sieci Web:

http://msdn.microsoft.com/workshop/entry.asp (http://msdn.microsoft.com/workshop/entry.asp)

http://msdn.microsoft.com/ie/ (http://msdn.microsoft.com/ie/)

http://support.microsoft.com/highlights/iep.asp?FR=0&SD=MSDN (http://support.microsoft.com/?scid=http%3a%2f%2fsupport.microsoft.com%2fhighlights%2fiep.asp%3ffr%3d0%26amp%3bsd%3dmsdn)

Powr�t na g�r�