Fil de discussion séparé du navigateur Web - VB.Net

Question

J'ai un add-in Outlook qui contient un contrôle de navigateur Web qui fait partie du contrôle de l'utilisateur pour le moment et je charge une page Web de ce complément. Donc, cela fonctionne très bien jusqu'ici, cependant, quand la page est longue à charger, cela rend l'interface utilisateur inutilisable pour que l'utilisateur continue son travail. Donc, ma question est vraiment, puis-je déplacer ce contrôle du navigateur Web à partir du contrôle de l'utilisateur et créer un thread séparé qui a ce contrôle du navigateur Web et faire tout le navigateur web de chargement dans ce thread. De cette façon, pendant que le contrôle prend son temps à charger, l'utilisateur peut continuer son travail.

Je lis à propos de cette approche dans ce post: WebBrowser Control in a new thread

Mais je me bats pour réutiliser pour mon cas particulier d'utilisation. Quelqu'un pourrait-il m'aider avec cette approche? J'ai posté mon code ici aussi:

Web browser control loading Outlook unusable VB.Net

Answer 1

Je sais que ce n'est pas trop, mais vous pouvez essayer quelque chose comme ça:

Déclare un fil:

Private ThreadBrowse As Threading.Thread 

puis commencer:

Private Sub StartNavigate 
    ThreadBrowse = New System.Threading.Thread(AddressOf TheWork) 
    ThreadBrowse.SetApartmentState(Threading.ApartmentState.STA) 
    ThreadBrowse.Start() 
End Sub 

Cette est un sous que le fil fera:

Private Sub TheWork() 
    Dim IsFinish As Boolean = False 
    WebBrowser1.Navigate(New Uri("http://stackoverflow.com")) 

Recheck: 
    WebBrowser1.InvokeCustom(Sub() IsFinish = (WebBrowser1.ReadyState = WebBrowserReadyState.Complete)) 
    If IsFinish = False Then 
     Threading.Thread.Sleep(100) 
     GoTo Recheck 
    End If 
End Sub 

Ne pas oublier de mettre son dans un module:

<Runtime.CompilerServices.Extension()> 
Public Sub InvokeCustom(ByVal Control As Control, ByVal Action As Action) 
    If Control.InvokeRequired Then Control.Invoke(New MethodInvoker(Sub() Action()), Nothing) Else Action.Invoke() 
End Sub 

Peut-être que vous pouvez faire mieux avec ce code de base, prévenant comme un « démarrage » : D

Answer 2

Avez-vous essayé de placer le code du navigateur Web dans une classe distincte, puis d'appeler le code?