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
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