Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Dim i As Integer = 3
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim Browse As New WebBrowser
- TabControl1.TabPages.Add(1, "Tab" & i)
- TabControl1.SelectTab(i - 1)
- Browse.Name = "wb"
- Browse.Dock = DockStyle.Fill
- TabControl1.SelectedTab.Controls.Add(Browse)
- i = i + 1
- End Sub
- Private Sub btnNewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewTab.Click
- Dim Browse As New WebBrowser
- TabControl1.TabPages.Add(1, "Tab" & i)
- TabControl1.SelectTab(i - 1)
- Browse.Name = "wb"
- Browse.Dock = DockStyle.Fill
- TabControl1.SelectedTab.Controls.Add(Browse)
- i = i + 1
- End Sub
- Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
- CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
- End Sub
- Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
- CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
- End Sub
- Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
- CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
- End Sub
- Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
- CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
- End Sub
- Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
- CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(url.Text)
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement