Question URL code not working

[vbnew]

Hi

Sorry I'm not sure if this is the right area but I'm struggling now. I have created a simple tabbed web browser (just reigniting my VB skills), but I cannot get the URL to display the current webpage, the code isn't the best as it came from my old college stuff, but I really don't know why the webbrowser_navigated code isn't working, can some help please.

Public Class Form1
Dim i As Integer = 0
　
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Browser As New WebBrowser
webbrowser.TabPages.Add("New Page")
webbrowser.SelectTab(i)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
webbrowser.SelectedTab.Controls.Add(Browser)
i = i + 1
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Browser As New WebBrowser
webbrowser.TabPages.Add("New Page")
webbrowser.SelectTab(i)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
webbrowser.SelectedTab.Controls.Add(Browser)
i = i + 1
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Not webbrowser.TabPages.Count = 1 Then
webbrowser.TabPages.RemoveAt(webbrowser.SelectedIndex)
webbrowser.SelectTab(webbrowser.TabPages.Count - 1)
i = i - 1
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Stop()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End Sub
Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Back) Then
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End If
End Sub
Private Sub Button5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button5.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End If
End Sub
Private Sub ComboBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End If
End Sub
Private Sub WebBrowser_Navigated(ByVal sender As Object, ByVal e As System.EventArgs)
ComboBox1.Text = CType(webbrowser.SelectedTab.Controls.Item(0), WebBrowser).Url.AbsoluteUri
End Sub
　
End Class

 

[JohnH]

You haven't attached event handler for any of your WebBrowser instances to that method. Event handlers can be attached using WithEvents variable and Handles keyword, or using AddHandler statement. In your case you probably do not want the url changing if a not visible browser finish navigating, so you can use a WithEvents variable that is assigned the currently visible WebBrowser control at any given time.

 

[vbnew]

Thanks

I knew there was something missing, just couldn't figure out what