none
Não consigo chamar um objeto do UserControl no Form1 RRS feed

  • 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  
    terça-feira, 6 de junho de 2017 20:08

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
    


    domingo, 18 de junho de 2017 22:24

Todas as Respostas

  • Boa tarde, MrOz59.

    Você poderia postar o código aqui?
    • Marcado como Resposta MrOz59 terça-feira, 6 de junho de 2017 21:43
    • Não Marcado como Resposta MrOz59 terça-feira, 6 de junho de 2017 21:52
    terça-feira, 6 de junho de 2017 20:24
  • 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
    terça-feira, 6 de junho de 2017 21:42
  • 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

    terça-feira, 6 de junho de 2017 21:54
  • qual o erro que está dando??
    quarta-feira, 7 de junho de 2017 11:23
  • 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

    quarta-feira, 7 de junho de 2017 16:41
  • Mas o que você quer fazer com ele? Só pra eu entender
    quarta-feira, 7 de junho de 2017 16:42
  • uma barra de pesquisa, que seja possivel de alterar o lugar onde se vai pesquisar como no mozilla firefox
    quarta-feira, 7 de junho de 2017 18:09
  • Boa tarde, MrOz59.

    Conseguiu resolver?
    sexta-feira, 16 de junho de 2017 16:59
  • 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

    • Editado MrOz59 sábado, 17 de junho de 2017 18:48
    sábado, 17 de junho de 2017 12:58
  • 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
    


    domingo, 18 de junho de 2017 22:24
  • 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.

    segunda-feira, 26 de junho de 2017 12:43
    Moderador