.NET 4.x TabPage & WebBrowser - Visual Basic .NET
Формулировка задачи:
Всем доброго времени суток!
На форме WebBrowser и TabControl. Как сделать, чтобы в каждом TabPage открывалась своя страница в WebBrowser'е, т.е С каждом TabPage своя страница. Спасибо за понимание.Решение задачи: «.NET 4.x TabPage & WebBrowser»
textual
Листинг программы
Public Class Form1 Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl) Dim NewBrowser As New CustomBrowser Dim NewTab As New TabPage NewBrowser.Tag = NewTab NewTab.Tag = NewBrowser TabControl.TabPages.Add(NewTab) NewTab.Controls.Add(NewBrowser) NewBrowser.Dock = DockStyle.Fill NewBrowser.Navigate(URL) End Sub Private Sub Foml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddTab("about:blank", TabControl1) End Sub Private Sub btnForward_Click(sender As System.Object, e As System.EventArgs) Handles btnForward.Click Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag WB.GoForward() End Sub Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag WB.GoBack() End Sub Private Sub btnReFresh_Click(sender As System.Object, e As System.EventArgs) Handles btnReFresh.Click Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag WB.Refresh() End Sub Private Sub btnStop_Click(sender As System.Object, e As System.EventArgs) Handles btnStop.Click Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag WB.Stop() End Sub Private Sub btnAddTab_Click(sender As System.Object, e As System.EventArgs) Handles btnAddTab.Click AddTab("about:blank", TabControl1) End Sub Private Sub cbGo_Click(sender As System.Object, e As System.EventArgs) Handles cbGo.Click Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag WB.Navigate(Me.cbURL.Text) cbURL.items.add(cbURL.Text) End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag Me.cbURL.text = WB.Url.ToString End Sub Private Sub btnReMoveTab_Click(sender As System.Object, e As System.EventArgs) Handles btnReMoveTab.Click If TabControl1.TabPages.Count = 1 Then Me.Close() Else TabControl1.TabPages.Remove(TabControl1.SelectedTab) End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class Public Class CustomBrowser Inherits WebBrowser Public Sub New() Me.ScriptErrorsSuppressed = True End Sub Private Sub DocConpleted() Handles Me.DocumentCompleted Dim TP As TabPage = Me.Tag If Me.DocumentTitle.Length > 15 Then TP.Text = Me.DocumentTitle.Substring(0, 14) & "..." Else TP.Text = Me.DocumentTitle() End If Form1.cbURL.text = Me.Url.ToString End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д