Tab Control Add webbrowser (Code, tut)

[kharg0]

at the begining state...

Public Class (form name here)
dim tab as new tabpage
dim theweb as new webbrowser

add this to your buttons, also for this code u need a tab control...

if TabControl1.SelectedTab Is TabPage1 Then WebBrowser1.Navigate(ComboBox1.Text)
        If TabControl1.SelectedTab Is Tab Then MyWeb.Navigate(ComboBox1.Text)

make an add tab button.. this is the code for it...

Dim i As Integer
        Tab.Parent = TabControl1
        i = TabControl1.TabCount - 1
        theWeb.Parent = tab
        theWeb.Visible = True
        theWeb.Dock = DockStyle.Fill
        theWeb.GoHome()

thx tell me what u think...

 

[darkkid714]

Seems great but you didt really explain what to start with. I have no idea where I put the second code. All cred due this is what I need. But its a bit vague. You have a combo box in there but what the hell is the combo box for. Its really confusing.

 

[Elkins121]

Well, I understand him..you put the second code on the Add Tab button's "Click" procedure. The combo box is where you type in the web address.

 

[Swan]

Darkkid, I recommend you buy a book and read up. Some times you shouldn't have to be told where to put things to know where to put them.

For example, if I told you to make a messagebox after the user clicked a button, most likely the first thing you would do is go to the Button's click event, wouldn't you?

It is amazingly simple to do this if you've migrated from a language such as VB6 where there is next to no object-orientation, wouldn't you agree? I don't code either, but I work with .Net (C#, etc) quite often, so I can make sense of your code quite thoroughly.

Edit: Sorry I forgot to comment.

Its nice and simple, and simple is the way things should be.

 

[Original VB]

Wow, thanks the tab part helped I couldn't figure out how to get it working =D thank you very much.

 

[The True Gears]

This is what i had for mine

Dim browse As New WebBrowser
        TabControl1.TabPages.Add(i, "Page " & i)
        TabControl1.SelectTab(i - 1)
        browse.Name = "vb"
        browse.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(browse)
        i = i + 1

And code like this for other buttons

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

Ect.