none
Erro "Is not declared" RRS feed

  • Pergunta

  • Pessoal, boa tarde, catei esse código http://stackoverflow.com/questions/18769706/web-browser-events

    Para controlar o PageLoad.

    Porém aqui ficou o seguinte erro:

    Name 'pageready' is not declared, acredito que esteja faltando alguma coisa:

    Public Class Form1
    
    Private Property pageready As Boolean = False
    
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    
            WebBrowser1.Navigate("https://wwww.com/Login")
            WaitForPageLoad()
            WebBrowser1.Document.GetElementById("Email").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
            WaitForPageLoad()
    
        End Sub
    
    #Region "Page Loading Functions"
    
        Private Sub WaitForPageLoad()
    
            AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
    
            While Not pageready
                Application.DoEvents()
            End While
    
            pageready = False
    
        End Sub
    
        Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
    
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                pageready = True
                RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
            End If
    
        End Sub
    
    #End Region
    
    End Class

    quarta-feira, 20 de agosto de 2014 17:33

Respostas

Todas as Respostas

  • Altera esse: 
    Private Property pageready As Boolean = False
    Por esse e teste: 
    Public Property pageready As Boolean = False
    Abraço.
    quarta-feira, 20 de agosto de 2014 17:40
  • Fernando, continua o mesmo erro.
    quarta-feira, 20 de agosto de 2014 17:45
  • Public pageready As Boolean = False

    O código que você pegou já estava apresentando esse erro e não foi solucionado no steack. 

    Veja se desse jeito vai funcionar, no link tem mais dicas.

    http://support.microsoft.com/kb/308230/pt-br

    • Marcado como Resposta Marques Junior quarta-feira, 20 de agosto de 2014 18:15
    quarta-feira, 20 de agosto de 2014 17:54
  • Pô, isso mesmo, vlw.

    Fica ai corrigido para o pessoal:

    Public Class Form1
        Public pageready As Boolean = False
        Private Sub Button1_Click_1(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
            WebBrowser1.Navigate("https://xxxxxxx.com/Login")
            WaitForPageLoad()
            WebBrowser1.Document.GetElementById("Email").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
            WaitForPageLoad()
        End Sub
    #Region "Page Loading Functions"
        Private Sub WaitForPageLoad()
            AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
            While Not pageready
                Application.DoEvents()
            End While
            pageready = False
        End Sub
        Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                pageready = True
                RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
            End If
        End Sub
    #End Region
    End Class

    quarta-feira, 20 de agosto de 2014 18:15
  • Show.
    quarta-feira, 20 de agosto de 2014 18:17