BeforeNavigate2 (how) does it work??

[CJN]

Hi all,

In vb.net I have my Axwebbrowser control and I added a beforenavigate2 sub to my code so that I could capture some things (eg the last button the user clicked on) just before the current webpage disappears and a new webpage is loaded. However this does not seem to work and I cannot even get it to go into the beforenavigate2 sub (i put a msgbox in the subs first line and it never has been displayed).

I guess I am using the beforenavigate2 wrongly? If so how do I use it? Or better still how can I get a sub to be called just before a new webpage is loaded in the webbrowser?

EG.

I'm at yahoo.com.
I enter some words in the search engine textbox.
I click search.
This click is the last thing the user can do before the next page is displayed.
I want to call a sub at this point, after the last click and before the next page is loaded.

Any ideas guys?

I thought beforenavigate2 was the answer.
It doesn't seem to be.

[dynamic_sysop]

beforenavigate2 has a known problem ( not working lol ) but here's a fix i just slapped together for you :

Private WithEvents doc As SHDocVw.DWebBrowserEvents_Event
'/// handle all browser events through doc now not brWeb.
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim b As Object = brWeb.Application
        doc = DirectCast(b, SHDocVw.WebBrowser_V1)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        brWeb.Navigate("http://google.com")
    End Sub
 
    Private Sub doc_BeforeNavigate(ByVal URL As String, ByVal Flags As Integer, ByVal TargetFrameName As String, ByRef PostData As Object, ByVal Headers As String, ByRef Cancel As Boolean) Handles doc.BeforeNavigate
        MessageBox.Show(URL)
    End Sub

hope it helps.

[CJN]

Cheers dynamic_sysop, that's sure to help

One other thing though the doc doesn't have a documentComplete
the webbrowser does.
Is it ok to use the webbrowsers documentComplete?
If not does the downloadComplete do the same job, cos doc has one of them ?

I need the docComplete so that I can load a webpages HTML source once the (visual) page has totally loaded.

Cheers for your help dynamic_sysop

[dynamic_sysop]

use the doc's document_Complete
all the events you need are covered by doc

[CJN]

Please say you mean use the doc's download_complete

This is ok with webpages with frames isant it? It won't go triggering until all the frames are loaded will it? I guess it doesn't matter as long as it still triggers when the whole thing (all frames) are loaded!

Cheers for all you help dynamic_sysop

[dynamic_sysop]

Private WithEvents doc As SHDocVw.DWebBrowserEvents_Event
    '/// doc will handle all the events for brWeb now...
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim b As Object = brWeb.Application
        doc = DirectCast(b, SHDocVw.WebBrowser_V1) '///set doc as the active handler for brWeb's events.
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        brWeb.Navigate("http://google.com") '///lets navigate to a website.
    End Sub
 
    Private Sub doc_BeforeNavigate(ByVal URL As String, ByVal Flags As Integer, ByVal TargetFrameName As String, ByRef PostData As Object, ByVal Headers As String, ByRef Cancel As Boolean) Handles doc.BeforeNavigate
        MessageBox.Show(URL) '/// check that before navigate now works.
    End Sub
 
    Private Sub doc_StatusTextChange(ByVal [Text] As String) Handles doc.StatusTextChange
        Label1.Text = Text '///show the status text in a label.
    End Sub
 
    Private Sub doc_TitleChange(ByVal [Text] As String) Handles doc.TitleChange
        MyBase.Text = Text '/// set the form's caption to the current url
    End Sub
 
    Private Sub doc_DownloadComplete() Handles doc.DownloadComplete
        MessageBox.Show(brWeb.LocationURL & "   is now complete!")
    End Sub

[CJN]

You are most helpful