Private Property Pageready As Boolean = False #Region "Page Loading Functions" Public Sub WaitForPageLoad() While Not Pageready If WebView21.ReadyState = WebBrowserReadyState.Complete Then Pageready = True Application.DoEvents() End While Pageready = False End Sub #End Region
If WebView21.ReadyState = WebBrowserReadyState.Complete Then Pageready = True
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private PageReady As Boolean Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load PageReady = False LabelText.Text = "Page non chargée" Do If PageReady = True Then Exit Do Application.DoEvents() Loop LabelText.text = "Page complètement chargée" End Sub Private Sub WebView21_NavigationCompleted(sender As Object, e As Microsoft.Web.WebView2.Core.CoreWebView2NavigationCompletedEventArgs) Handles WebView21.NavigationCompleted PageReady = True End Sub End Class
Private WithEvents WebView21 As CoreWebView2