Help with tabs in web browser
Help with tabs in web browser
I am making a web browser but could someone please explain to me how to add tabs to it please
Originally Posted by Laxitive
I am making a web browser but could someone please explain to me how to add tabs to it please
Then click "edit tab pages" in the properties window
I don't get wat I am supposed to do after I add tab control and another question. I have more than 1 form and when I exit out of say like form 2 the text I entered into a textbox doesn't save. How do i make it so when i exit it saves?
Add tab control
Then, add 1 webbrowser for each tab you have. After that, just add a textbox+button
Then, add 1 webbrowser for each tab you have. After that, just add a textbox+button
Code:
Webbrowser1/2/3/4/5/6.Navigate(TextBox1.Text)
if you go on youtube some guy as a very good tut on this his name is like environmentalnerd or something but go find that.
He has a cool channel
Originally Posted by trevor206
if you go on youtube some guy as a very good tut on this his name is like environmentalnerd or something but go find that.
Originally Posted by Laxitive
thx a lot but do you have an answer to my second question?
[YOUTUBE]http://www.youtube.com/watch?v=Gd5xh_HF7EE[/YOUTUBE]
just make everything he does in the vid then just copy paste the code.
Code:
Public Class Form1
Dim int As Integer = 0
Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedE ventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End Sub
Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentComplete dEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).DocumentTitle
ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Url.ToString
End Sub
Form1_Load:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()
Add Tab:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()
Remove Tab:
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl 1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPag es.Count - 1)
int = int - 1
End If
Website Properties:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).ShowPropertiesDialog
Back:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoBack()
Forward:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoForward()
Refresh:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Refresh()
Stop:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Stop()
Home:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()
Go:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Navigate(ComboBox1.Text)
Timer1:
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).StatusText
Originally Posted by trevor206
if you go on youtube some guy as a very good tut on this his name is like environmentalnerd or something but go find that.
Similar Threads
- 12Last post
- 24Last post
- 27Last post
- 12Last post
- 7Last post