Module Module1
Sub addfirsttab()
addtab("http://www.vbdotnetforums.com")
End Sub
Sub addtab(ByVal url)
Dim tp As New TabPage
Dim wb As New WebBrowser
AddHandler wb.NewWindowExtended, AddressOf wb_NewWindowExtended
AddHandler wb.Navigated, AddressOf wb_Navigated
wb.Dock = DockStyle.Fill
tp.Controls.Add(wb)
wb.Navigate(url)
End Sub
Private Sub wb_NewWindowExtended(ByVal sender As Object, ByVal e As Module1.WebBrowserNewWindowExtendedEventArgs)
e.Cancel = True
addtab(e.Url)
End Sub
Private Sub wb_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
sender.parent.text = sender.document.Title
End Sub
End Module
and in Form1_Load I've got:
addfirsttab()
Is this how you call a method? I was told to call this method on Form1_Load but I don't quite know how.
Basically, on this code:
Private Sub wb_NewWindowExtended(ByVal sender As Object, ByVal e As Module1.WebBrowserNewWindowExtendedEventArgs)
e.Cancel = True
addtab(e.Url)
End Sub
I get Module1.WebBrowserNewWindowExtendedEventArgs not defined.
Please can someone tell me what I'm doing wrong and help me?
Thanks,
Jonathan.

New Topic/Question
This topic is locked




MultiQuote








|