[VB Express 2008] Problema Attesa Caricamento Pagina

[grimaldello]

Salve a tutti,
ho ancora bisogno del vostro aiuto. Da un po' sto cercando di migliorare un mio programma scritto in VB 2008 che prevede l'esecuzione di alcune operazioni su di un Webbrowser. Fino ad ora avevo messo il seguente codice per far si che prima di eseguire determinate operazioni sulla pagina web visualizzata, essa fosse completamente caricata:

Dim time As DateTime = Now
Dim secs As Integer = 5

While sec > Now.Subtract(time).TotalSeconds
Application.DoEvents()
End While

(si può definire una sorta di ciclo di ritardo o ciclo di attesa)

Tuttavia a causa della mia connessione internet che risulta essere non molto veloce, 5 secondi possono non essere sufficienti per il completo caricamento della pagina e di conseguenza tutte le operazioni che dovrebbero venir fatte dopo i 5 secondi vengono tutte sfasate e il programma si blocca. Se invece la pagina web completa il caricamento entro quei 5 secondi tutto fila liscio. Se alzassi il tempo a 10 secondi, farebbe diventare il programma praticamente inutile perchè diventerebbe troppo lento.
Quello che chiedo io è se esiste una soluzione più elegante al mio problema, ovvero se vi è un qualcosa che faccia partire le operazioni sulla pagina web solo una volta che si è completamente cariata la pagina web.

Grazie in anticipo.

P.S. Potrbbe c'entrare qualcosa il Webbrowser_DocumentCompleted?

[ShaleN]

C'è una proprietà per monitorare lo stato del caricamento della pagina e si chiama WebBrowser1.ReadyState e può assumere cinque valori:
-Complete (pagina completamente caricata)
-Interactive (le parti della pagina caricate sono sufficienti a garantire un minimo di interazione con l'utente, ad esempio con dei click sui link presenti);
-Loaded (il documento è caricato e inizializzato, ma non tutti i dati sono ancora stati ricevuti);
-Loading (il documento è in caricamento);
-Uninitialized (nessun documento è stato aperto).

Quindi invece di scrivere:

While sec > Now.Subtract(time).TotalSeconds 
Application.DoEvents() 
End While

metti questo:

While WebBrowser1.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
End While

Piccola informazione tecnica: quando posti del codice usa gli appositi tag come ho fatto io; altrimenti i moderatori ti scannano: contattane uno e fatti mettere apposto il post.

[grimaldello]

Grzie melle delle info!!! si sono rilveato molto utili. Provvederò ad informarmare gli admin per la faccenda del codice non riqudrato.

Piccola nota:

While WebBrowser1.ReadyState = WebBrowserReadyState.Complete  
Application.DoEvents()         
End While

Con questo codice in teoria rimarrà sempre fermo perchè vi è l'uguale. In teoria secondo me si dovrebbe mettere:

While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete  
Application.DoEvents()         
End While

ovvero fino a che la pagina del Webbrowser non si è caricata completamente attendi il suo caricamento?

Comunque ora provo e ti saprò dire

[ShaleN]

Hai ragione: quello che avevo scritto io non aveva senso

Ciao.

[grimaldello]

Si l'ho provato e infatti funziona mettendo "<>" e non "=".

Comunque grazie lo stesso, sei stato gentilissimo ad aiutarmi.