event handler doubt....

[teeteking]

hi friends,i am new in vb.net,im stuck at event handling in this small web browser program below
Public Class CustomBrowser
Inherits WebBrowser

end class


(to go back)
Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnback.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoBack()
End Sub

(to go forward)

Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnforward.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoForward()
End Sub

(function to add tab)
Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
Dim NewBrowser As New CustomBrowser
Dim NewTab As New TabPage
NewBrowser.Tag = NewTab
NewTab.Tag = NewBrowser
TabControl.TabPages.Add(NewTab)
NewTab.Controls.Add(NewBrowser)
NewBrowser.Dock = DockStyle.Fill
NewBrowser.Navigate(URL)
End Sub



(to check if browser can go forward ,if it can go,then enable forward button ,same for back button)
Private Sub webbrowser1_navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Dim wb As CustomBrowser = Me.TabControl1.SelectedTab.Tag
If (Wb.CanGoForward = True) Then
Btnforward.Enabled = True
Else
Btnforward.Enabled = False
End If
If (Wb.CanGoBack = True) Then
btnback.Enabled = True
Else
Btnback.Enabled = False
End If
End Sub




NOW MY DOUBT AND PROBLEM IS AT THE WEBBROWSER1.NAVIGATED...a problem in event handling,im new in vb.net....i get this error


Error 1 Handles clause requires a WithEvents variable defined in the containing type or one of its base types.




So please help me to learn to correct it

 

[JohnH]

To handle an event you need either a WithEvents variable or use AddHandler statement. See for example Events in Visual Basic

 

[teeteking]

thanks for replying john...