Usuário com melhor resposta
Não consigo chamar um objeto do UserControl no Form1

Pergunta
-
Estou tendo o seguinte problema eu criei uma ToolStrip e nela adicionei uma ComboBox mas quando foi adicionar as opções dela pelo Form1 não consegui pois ele não conseguia encontrar o objeto por ele estava no UserControl então tentei setar pelo UserControl mesmo mas não funcionou apesar de não dar nenhum erro então se alguém puder me ajudar
Respostas
-
Boaaaaaa noite amigo !
No google e assim veja
Foto
Codigo
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("http://www.google.com/?gws_rd=ssl#q=" & "Fotos") End Sub End Class
Ja no firefox eu nao posso disser pois nao uso ele !
No ping e assim
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("https://www.bing.com/search?q=" & "Fotos") End Sub End Class
- Marcado como Resposta Guilherme Macedo SModerator segunda-feira, 26 de junho de 2017 12:43
Todas as Respostas
-
eu encontrei o problema, o visual studio não estava inserindo a parte em aspas
Public Sub usercontrol11_Load(sender As Object, e As EventArgs) "Handles MyBase.Load"
Search.Items.Add("Google")
Search.Items.Add("Yahoo")
Search.Items.Add("Bing")
Search.SelectedIndex = 0
End Sub mas muito obrigado- Editado MrOz59 terça-feira, 6 de junho de 2017 21:42 acresimo
- Sugerido como Resposta João Paulo [] domingo, 18 de junho de 2017 17:01
- Não Sugerido como Resposta João Paulo [] domingo, 18 de junho de 2017 22:38
-
ja aproveitando para não ter que abrir outra pergunta esse codigo não quer funcionar se puder me ajudar
Private Sub SearchTextBox_KeyUp(sender As Object, e As KeyEventArgs) Handles SearchTextBox.KeyUp
Select Case (SearchTextBox.Selected)
Case 0
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate("http://www.google.com/#Q=" + SearchTextBox.Text)
End If
End Select
End Sub -
-
essa e a questão não da erro nenhum mas não funciona esse é meu código
Private Sub SearchTextBox_KeyUp(sender As Object, e As KeyEventArgs) Handles SearchTextBox.KeyUp
Select Case (SearchTextBox.Selected)
Case 0
If e.KeyCode = Keys.Enter Then
WebBrowser1.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
Search.Items.Add("Google")
Search.SelectedIndex = 0
End Sub -
Mas o que você quer fazer com ele? Só pra eu entender
- Editado Filipe Baqueta de Castro quarta-feira, 7 de junho de 2017 16:43
-
-
-
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 ClassForm1:
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
- Editado MrOz59 sábado, 17 de junho de 2017 18:48
-
Boaaaaaa noite amigo !
No google e assim veja
Foto
Codigo
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("http://www.google.com/?gws_rd=ssl#q=" & "Fotos") End Sub End Class
Ja no firefox eu nao posso disser pois nao uso ele !
No ping e assim
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("https://www.bing.com/search?q=" & "Fotos") End Sub End Class
- Marcado como Resposta Guilherme Macedo SModerator segunda-feira, 26 de junho de 2017 12:43
-
Bom dia,
Por falta de retorno esta thread esta encerrada !
Por gentileza, caso necessário abra uma nova thread.
Atenciosamente,
Guilherme Macedo S
Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita
TechNet Community Support
Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.