Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27333

VS 2010 VS 2012 issues with webbrowser Go_Click - WB.Navigate(Me.cbURL.Text)

$
0
0
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
Attached Images
 

Viewing all articles
Browse latest Browse all 27333

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>