Master_script_maker
03-11-2008, 11:00 PM
Hi I am making a web browser in visual basic 2008(not "making", using web browser object). I need some help.
1. I would like a more efficient way of changing the url. I know there is i just can't find it.
Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
TabControl1.SelectedTab.Controls.Clear()
Dim wbr = New WebBrowser
wbr.Name = "WebBrowser" + TabControl1.SelectedIndex.ToString
wbr.Dock = DockStyle.Fill
wbr.Navigate(ComboBox1.Text)
wbr.ContextMenuStrip = Right_Menu
TabControl1.SelectedTab.Tag = wbr.Name
TabControl1.SelectedTab.Controls.Add(wbr)
End Sub
2. For some reason the title does not display.
Private Sub NewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTab.Click
Dim wb = New WebBrowser
Dim tb = New TabPage
wb.Dock = DockStyle.Fill
wb.ContextMenuStrip = Right_Menu
wb.Name = "WebBrowser" + (TabControl1.TabCount + 1).ToString
wb.Navigate("http://www.dynamicdrive.com")
tb.Controls.Add(wb)
tb.text = wb.DocumentTitle
TabControl1.TabPages.Add(tb)
TabControl1.SelectTab(TabControl1.TabCount - 1)
If (TabControl1.TabCount = 2) Then
DeleteTab.Enabled = True
End If
End Sub
1. I would like a more efficient way of changing the url. I know there is i just can't find it.
Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
TabControl1.SelectedTab.Controls.Clear()
Dim wbr = New WebBrowser
wbr.Name = "WebBrowser" + TabControl1.SelectedIndex.ToString
wbr.Dock = DockStyle.Fill
wbr.Navigate(ComboBox1.Text)
wbr.ContextMenuStrip = Right_Menu
TabControl1.SelectedTab.Tag = wbr.Name
TabControl1.SelectedTab.Controls.Add(wbr)
End Sub
2. For some reason the title does not display.
Private Sub NewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTab.Click
Dim wb = New WebBrowser
Dim tb = New TabPage
wb.Dock = DockStyle.Fill
wb.ContextMenuStrip = Right_Menu
wb.Name = "WebBrowser" + (TabControl1.TabCount + 1).ToString
wb.Navigate("http://www.dynamicdrive.com")
tb.Controls.Add(wb)
tb.text = wb.DocumentTitle
TabControl1.TabPages.Add(tb)
TabControl1.SelectTab(TabControl1.TabCount - 1)
If (TabControl1.TabCount = 2) Then
DeleteTab.Enabled = True
End If
End Sub