Attachment 98253I've attached my code below. The browser opens fine, but when I try to enter an URL, for ex. www.google.com
It takes me to:
Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Navigate(Me.cbURL.Text) Please see attached picture for error messages.
cbURL.Items.Add(cbURL.Text)
End Sub
Any ideas on what I've done wrong. As you can probably tell, I don't know that much about programming. Trying to learn.
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddTab("about:blank", TabControl1)
End Sub
Private Sub BtnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnForward.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoForward()
End Sub
Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoBack()
End Sub
Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Refresh()
End Sub
Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Stop()
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
AddTab("about:blank", TabControl1)
End Sub
Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Navigate(Me.cbURL.Text)
cbURL.Items.Add(cbURL.Text)
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
Me.cbURL.Text = WB.Url.ToString
End Sub
Private Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRemove.Click
If TabControl1.TabPages.Count < 1 Then
Me.Close()
Else
TabControl1.TabPages.Remove(TabControl1.SelectedTab)
End If
End Sub
End Class
Public Class CustomBrowser
Inherits WebBrowser
Public Sub New()
Me.ScriptErrorsSuppressed = True
End Sub
Private Sub DocCompleted() 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
End Sub
End Class
It takes me to:
Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Navigate(Me.cbURL.Text) Please see attached picture for error messages.
cbURL.Items.Add(cbURL.Text)
End Sub
Any ideas on what I've done wrong. As you can probably tell, I don't know that much about programming. Trying to learn.
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddTab("about:blank", TabControl1)
End Sub
Private Sub BtnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnForward.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoForward()
End Sub
Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.GoBack()
End Sub
Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Refresh()
End Sub
Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Stop()
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
AddTab("about:blank", TabControl1)
End Sub
Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
WB.Navigate(Me.cbURL.Text)
cbURL.Items.Add(cbURL.Text)
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
Dim WB As CustomBrowser = Me.TabControl1.SelectedTab.Tag
Me.cbURL.Text = WB.Url.ToString
End Sub
Private Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRemove.Click
If TabControl1.TabPages.Count < 1 Then
Me.Close()
Else
TabControl1.TabPages.Remove(TabControl1.SelectedTab)
End If
End Sub
End Class
Public Class CustomBrowser
Inherits WebBrowser
Public Sub New()
Me.ScriptErrorsSuppressed = True
End Sub
Private Sub DocCompleted() 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
End Sub
End Class