Jump to content

Recommended Posts

Posted

Hi I have tabbed browsing setup on a webrowser I made in VB. But Now I want to add a status bar label witch changes on BeforeNavigate2 and NavigateComplete2. I can't add the Handles clause to The Dim Browser.

Here is my code:

Public Class Form1

Dim NewTabPage As New TabPage

Private Sub browser_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles browser.NavigateComplete2

For Each c As Control In TabControl1.SelectedTab.Controls

Dim browser As AxSHDocVw.AxWebBrowser = TryCast(c, AxSHDocVw.AxWebBrowser)

If browser IsNot Nothing Then

ToolStripStatusLabel1.Text = "Done"

ToolStripComboBox1.Text = NewBrowser.LocationURL.ToString

NewTabPage.Text = browser.LocationName

Exit For

End If

Next

End Sub

Private Sub AddTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTabToolStripMenuItem.Click

TabControl1.TabPages.Add(NewTabPage)

NewTabPage.Controls.Add(New AxSHDocVw.AxWebBrowser)

End Sub


Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...