Infelizmente não, o UserControl estava me dando muitos problemas então eu o removi e alterei o código, Esses são os códigos que estou usando:
Class1:
Public Class WebBrowserFunction
Inherits WebBrowser
Private Sub WebBrowserDocCompl() Handles Me.DocumentCompleted
Dim tabPage As TabPage = Me.Tag
Dim Form1 As New Form1
tabPage.Text = DocumentTitle
Form1.LTextBox1.Text = Me.Url.ToString
End Sub
End Class
Form1:
Imports System.IO
Imports System.Net
Public Class Form1
Private Sub up_Click_1(sender As Object, e As EventArgs)
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
Browser.GoForward()
End Sub
Private Sub reload_Click(sender As Object, e As EventArgs)
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
Browser.Refresh()
End Sub
Private Sub newtab_Click(sender As Object, e As EventArgs)
End Sub
Private Sub closetab_Click_1(sender As Object, e As EventArgs)
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
End If
End Sub
Private Sub downloads_Click(sender As Object, e As EventArgs)
End Sub
Private Sub LTextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles LTextBox1.KeyUp
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
If e.KeyCode = Keys.Enter Then
Browser.Navigate(LTextBox1.Text)
End If
End Sub
Private Sub SearchTextBox_KeyUp(sender As Object, e As KeyEventArgs)
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
Select Case (SearchTextBox.Selected)
Case 0
If e.KeyCode = Keys.Enter Then
Browser.Navigate("http://www.google.com/#Q=" + SearchTextBox.Text)
End If
End Select
End Sub
Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.DirectoryExists("C:\GodizillaGiroflex") = False Then
MkDir("C:\GodizillaGiroflex")
End If
Search.Items.Add("Google")
Search.SelectedIndex = 0
addTab(TabControl1)
If My.Settings.HomeOrBlank = 0 Then
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
Browser.Navigate(My.Settings.homePage)
End If
Try
For Each Link1 As String In File.ReadAllLines("C:\GodizillaGiroflex\Favoritos.txt")
Favoritos.ListBox1.Items.Add(Link1.ToString)
Next
System.IO.File.Delete("C:\GodizillaGiroflex\Favoritos.txt")
Catch ex As Exception
End Try
Try
For Each Link As String In File.ReadAllLines("C:\GodizillaGiroflex\History.txt")
Form2.ListBox1.Items.Add(Link.ToString)
Next
System.IO.File.Delete("C:\GodizillaGiroflex\History.txt")
Catch ex As Exception
End Try
End Sub
Private Sub back_Click_1(sender As Object, e As EventArgs)
Dim Browser As WebBrowserFunction = Me.TabControl1.SelectedTab.Tag
Browser.GoBack()
End Sub
Private Sub options_Click(sender As Object, e As EventArgs) Handles options.Click
Form2.Visible = True
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
For Each Link As String In Form2.ListBox1.Items
File.AppendAllText("C:\GodizillaGiroflex\History.txt", Link & vbNewLine)
Next
For Each Link1 As String In Favoritos.ListBox1.Items
File.AppendAllText("C:\GodizillaGiroflex\Favoritos.txt", Link1 & vbNewLine)
Next
End Sub
Public Sub addTab(ByRef tabControl As TabControl)
Dim Browser As New WebBrowserFunction
Dim tab As New TabPage
Browser.Tag = tab
tab.Tag = Browser
TabControl1.TabPages.Add(tab)
tab.Controls.Add(Browser)
Browser.Dock = DockStyle.Fill
If My.Settings.HomeOrBlank = 0 Then
Browser.Navigate(My.Settings.homePage)
End If
End Sub
Public Sub closeTab()
If TabControl1.TabPages.Count > 1 Then
TabControl1.TabPages.Remove(TabControl1.SelectedTab)
Else
Me.Close()
End If
End Sub
Private Sub newtab_Click_1(sender As Object, e As EventArgs)
addTab(TabControl1)
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Dim browser As WebBrowserFunction = TabControl1.SelectedTab.Tag
If TabControl1.TabPages.Count > 1 Then
Try
LTextBox1.Text = browser.Url.ToString
Catch ex As Exception
End Try
End If
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
addTab(TabControl1)
End Sub
Private Sub FecharAbaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FecharAbaToolStripMenuItem.Click
closeTab()
End Sub
Private Sub NovaJanelaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovaJanelaToolStripMenuItem.Click
Dim newWindow As New Form1
newWindow.Show()
End Sub
Private Sub HistoricoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoricoToolStripMenuItem.Click
Form2.Visible = True
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Favoritos.Show()
End Sub
Private Sub downloads_Click_1(sender As Object, e As EventArgs) Handles downloads.Click
MsgBox("Não Terminado")
End Sub
End Class
Não consigo chamar um objeto do UserControl no Form1
