Computer-Pro Posted February 27, 2006 Posted February 27, 2006 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 Form1Dim NewTabPage As New TabPagePrivate 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now