[RESOLVED] WebBrowser Tabs

yea i think so here code to tell me if ive missed one

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Target As Control In TabControl1.Controls
            If TypeOf (Target) Is WebBrowser Then
                CType(Target, WebBrowser).Navigate(ComboBox1.Text)
                CType(Target, WebBrowser).WebBrowserShortcutsEnabled = True
                Exit For
            End If
        Next
    End Sub
    Private Sub ComboBox1_KeyDown_(ByVal sender As Object, ByVal e As KeyEventArgs) Handles ComboBox1.KeyDown
        If (e.KeyCode = Keys.Enter) Then
            Navigate(ComboBox1.Text)
        End If
    End Sub
    Private Sub WebBrowser1_Navigated(ByVal sender As Object, _
    ByVal e As WebBrowserNavigatedEventArgs) _
    Handles WebBrowser1.Navigated
        ComboBox1.Text = ActiveBrowser.Url.ToString()
        CType(TabControl1.SelectedTab.Controls(0), WebBrowser).Navigate(ComboBox1.Text)
        CType(TabControl1.SelectedTab.Controls(0), WebBrowser).WebBrowserShortcutsEnabled = True


    End Sub
    Private Function ActiveBrowser() As WebBrowser

        For Each Control In TabControl1.SelectedTab.Controls
            If TypeOf Control Is WebBrowser Then
                Return CType(Control, WebBrowser)
            End If
        Next

    End Function
    Private Sub Navigate(ByVal address As String)
        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And _
            Not address.StartsWith("https://") Then
            address = "http://" & address
        End If
        Try
            ActiveBrowser.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Return
        End Try
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoBack()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.GoForward()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Refresh()
        ProgressBar1.Increment(1)
        If Timer1.Enabled = True Then
            ProgressBar1.Value = 0
        End If
        If Timer2.Enabled = True Then
            ProgressBar1.Value = 100
        End If
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Stop()
        If Timer1.Enabled = True Then
            ProgressBar1.Value = 0
        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.GoHome()
        WebBrowser1.Navigate("sharewarez.sqweebs.com")
        ProgressBar1.Increment(1)
        If Timer2.Enabled = True Then
            ProgressBar1.Value = 100
        End If
    End Sub
    Private Function IsPopupWindow() As Boolean
        On Error Resume Next
        If ActiveBrowser.Document.ActiveElement.TagName = "BODY" Or WebBrowser1.Document.ActiveElement.TagName = "IFRAME" Then
            IsPopupWindow = True
        Else
            IsPopupWindow = True
        End If
    End Function
    Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Increment(1)
        If Timer1.Enabled = True Then
            ProgressBar1.Value = 0
        End If
        If Timer2.Enabled = True Then
            ProgressBar1.Value = 100
        End If
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ProgressBar1.Increment(1)
        If Timer1.Enabled = True Then
            ProgressBar1.Value = 0
        End If
        If Timer2.Enabled = True Then
            ProgressBar1.Value = 100
        End If
        If Timer1.Enabled = True Then
            ProgressBar1.Value = 0
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
        Dim X As New TabPage
        X.Text = "My New Page "
        TabControl1.TabPages.Add(X)
        Dim Y As New WebBrowser
        Y.Dock = DockStyle.Fill
        X.Controls.Add(Y)
    End Sub
End Class

---

dont know which one to change coz you sed dont change the handles webbrowser1

Button1_Click, Button2_Click, Button3_Click, Button4_Click, Button5_Click, Button6_Click and IsPopupWindow.

These routines all refer do webbrowser1 as an object and need changing or they will always act on the web-browser on the 1st tab page regardless of which one is active.

Once you've done that let me know and I'll explain the next step.

ive done that but got an error for activeBrowser.Stop

ryt its done ?? whats next

OK when you create your new webbrowser we now need to add event handlers, so that the stuff that currently handles webbrowser1 events also works with your new ones, so you need to add this line :

Code:

---

Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
        Dim X As New TabPage
        X.Text = "My New Page "
        TabControl1.TabPages.Add(X)
        Dim Y As New WebBrowser
        Y.Dock = DockStyle.Fill
        AddHandler Y.Navigated, Addressof WebBrowser1_Navigated
        X.Controls.Add(Y)
    End Sub

---

ermm what you mean add new web browser were do i add the new web browser do i stick it over the top of the other webbrowser 1

Quote:

---

Originally Posted by pillhead2007

ermm what you mean add new web browser were do i add the new web browser do i stick it over the top of the other webbrowser 1

---

Deep breaths... calm thoughts....

No, you (personally) do not add a new web browser, it is done in code. That is what this line of code does :

Code:

---

Dim Y As New WebBrowser

---

okies well next step then coz ive added that handler

That should be it, or at least thats the theory

Give it a whirl - see if it is working.

If you have a sizing issue still (ie the tabs not being wide enough) that can be sorted, but first need to just check that the basic functionality is working.

You probably also want to trap when a link within a page would create a new browser window and get that to just create a new tab instead.

still wont navigate other sites ie google . size is not big and this
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ActiveBrowser.Stop()
If Timer1.Enabled = True Then
ProgressBar1.Value = 0
End If
End Sub

the highlighted in red goes yellow when deburging

Quote:

---

the highlighted in red goes yellow when deburging

---

that sounds like you have a breakpoint on that line rather than an error.

When code isn't running does that line have a solid red background? If so just put your cursor on that line and press F9 to clear it.

yea it still doesnt wanna navigate other sites and the activebrowser.stop no it dont have a red background has a yellow one sometime it goes off tho

OK now you are going to have to be very detailed in specific to explain exactly what is happening.

It still sounds to me like that activebrowser.stop line is a break point not an error, especially as you are not saying there is an error message. When that happens try pressing F5 and see if the program just continues. If it does then it is a breakpoint. To get rid of it, stop your program and open up a code window and press CTRL+SHIFT+F9, and that will clear all breakpoints.

Now secondly when you say "it still doesnt wanna navigate other sites" what do you mean exactly?

If you run your program you should have just the one tab and one webbrowser - right? Don't try and create a 2nd tab yet. What happens if you try to navigate to a site? And how do you do try to launch it? Are you selecting a site from a dropdown, or are you typing the name of a site?

activewebbrowser it says summit about nullrefrenerece handled and yea i dont open no tabs stick in the url and doesnt wanna navigate to any website i stick in the combobox

I said above - you need to be detailed and specific

"summit about nullrefrenerece handled" isn't detailed or specific.

Which line does this error occur on, and what does it say exactly?

A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll

OK that isn't a runtime error message in your code.

The reason why it isn't seeming to navigate to your page is this :

Code:

---

Private Sub WebBrowser1_Navigated(ByVal sender As Object, _
    ByVal e As WebBrowserNavigatedEventArgs) _
    Handles WebBrowser1.Navigated
        ComboBox1.Text = ActiveBrowser.Url.ToString()
        CType(TabControl1.SelectedTab.Controls(0), WebBrowser).Navigate(ComboBox1.Text)
        CType(TabControl1.SelectedTab.Controls(0), WebBrowser).WebBrowserShortcutsEnabled = True


    End Sub

---

This basically is telling the webbrowser to navigate to the page again as soon as it has reached the page, so it is stuck in an endless loop.

I know we've modified this line to work with the ActiveBrowser but it shouldn't have been there in the first place - it will stop the browser from ever loading a page. Delete that line and it will work.

A first chance exception of type 'System.NullReferenceException' occurred in Web Browser.exe
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll

and i deleted that line still wont navigate

Quote:

---

Originally Posted by pillhead2007

A first chance exception of type 'System.NullReferenceException' occurred in Web Browser.exe
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll

---

See #77 - these aren't errors being raised in your application, just in the .net framework. They can be resolved but basically they aren't going to stop your code running, unlike a runtime exception within your own code.

There is an option to turn off these messages somewhere but I can't recall where off the top of my head.

no worries anyways thanks for helping me but im just gonna give up on tabs and it get it back running again

Quote:

---

Originally Posted by pillhead2007

no worries anyways thanks for helping me but im just gonna give up on tabs and it get it back running again

---

I have created a new project with a new form containing 6 buttons called button 1 to button 6, a combo box called combobox1, a tab control called tabcontrol1 with 1 page called tabpage1, and 2 timer controls called timer1 and timer2.

Then I pasted in the code that you provided above in post #61, and changed the webbrowser1 references to ActiveBrowser in buttons1 -6, deleted that line that caused the infinite loop, and ran the code :

All works fine, with multiple tabs

(thats a slight fib - there is one more line that needs adding to get it working perfectly, but that is unrelated to webbrowser1 not working) :

Code:

---

        Dim X As New TabPage
        X.Text = "My New Page "
        TabControl1.TabPages.Add(X)
        Dim Y As New WebBrowser
        Y.Dock = DockStyle.Fill
        AddHandler Y.Navigated, AddressOf WebBrowser1_Navigated
        AddHandler Y.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted

        X.Controls.Add(Y)

---

copy code and ill make a new project see if it works then

Let me know if you want a copy of the project so you can try running it yourself and compare what I had with what you have.

yea please do that

Here it is.

Note obviously I don't have your graphics on the buttons so you'll need to work out what each one does, and I've moved the code to create a new tab into a 7th button on the side of the tab control

thanks ive added some rep for u for being patient an understanding :>

thats good that erm is there a code to remove ur tabs once done with them ??

No problem... do you think you understand the process of creating controls dynamically now?

Creating a control in code like we did with "Dim Y as New WebBrowser" is exactly what Visual Studio does for you behind the scenes when your create a control via the designer. There is a hidden file associated with every form which just consists of code exactly like that - to see it you click on the "Show All Files" button in the Solution explorer toolbar and then click on the "+" icon that appears next to your form and then you will see a Form1.Designer.Vb icon - double click that and you'll see the code that VB has generated for you automatically to create the controls.

I'll leave you to work out how to remove a tab... will be a good exercise for you!

yay followed your project and mine worked ermm just got one slight problem tho

Code:

---

Try

            ActiveBrowser.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Stop
            Return
        End Try

---

How do I get that Stop comming Up In yellow when i deburg it
it says this on me immediate window on error console
A first chance exception of type 'System.NullReferenceException' occurred in Web Browser 2.exe

The command "STOP" breaks execution of your code at that point and opens the debugger. I put it in there because you are just ignoring possible exceptions that might be important - the fact that it is running that line suggests there is a problem somewhere. It may be that you just want to ignore it, in which case just remove that line.

And as I said before "A first chance exception of type 'System.NullReferenceException' occurred in Web Browser 2.exe" is not an error in your code necessarily.

See http://blogs.msdn.com/davidklinems/a...12/438061.aspx for an explanation about these "first chance exceptions"

yea i took out that line and it comes up for all these listed in yellow too
But Me First tab Wont Work With All these errors
ActiveBrowser.Stop()
ActiveBrowser.GoForward()
ActiveBrowser.GoBack()
ActiveBrowser.Refresh()
ActiveBrowser.GoHome()
ActiveBrowser.Navigate(ComboBox1.Text)

Sorry you'll need to be more specific. Do you get these "yellow" lines in the project I gave you or just your own?

I have no idea what you mean by

Quote:

---

But Me First tab Wont Work With All these errors
ActiveBrowser.Stop()
ActiveBrowser.GoForward()
ActiveBrowser.GoBack()
ActiveBrowser.Refresh()
ActiveBrowser.GoHome()
ActiveBrowser.Navigate(ComboBox1.Text)

---

I don't mean to appear rude but you need to be very precise and specific if you want someone to work out what is happening, vague statements just don't give any meaningful information.

http://i25.tinypic.com/n6ov90.jpg

and its appearing not work the first tab page

Does the problem occur with my version, or just in your version? I don't get the problem in the code I sent you.

If it only occurs in your version then I think its something to do with your initial form setup.

I've tried on the version - specifically testing button5 - that I sent you and it seems to be working OK.

It may be worth taking the project I sent you and adding your graphics into that version and re-arranging the controls to suit, rather than persisting with your project as it sounds like something has gone wrong in the setup of the form you created.

okies its fine now thanks dude u know hot set it so when the program runs it runs straight to full screen
??

dont matter done it thanks