Usuário com melhor resposta
Erro "Is not declared"

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
Respostas
-
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.
- Marcado como Resposta Marques Junior quarta-feira, 20 de agosto de 2014 18:15
Todas as Respostas
-
-
-
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.
- Marcado como Resposta Marques Junior quarta-feira, 20 de agosto de 2014 18:15
-
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
-