Fil d'arrière-plan entraînant le blocage de l'interface utilisateur

Question

J'ai un arrière-plan qui vérifie l'état de quatre services sur un serveur distant. Ceci est configuré sur une minuterie (5 secondes) comme ci-dessous. Pour une raison quelconque, il est suspendu le fil de l'interface utilisateur provoquant le verrouillage de l'application pour une seconde chaque tick, je ne peux pas comprendre pourquoi ?!

Private Sub ServiceTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ServiceTimer.Tick 

    _ServiceBGWorker = New System.ComponentModel.BackgroundWorker() 
    _ServiceBGWorker.WorkerSupportsCancellation = False 
    _ServiceBGWorker.WorkerReportsProgress = False 
    AddHandler _ServiceBGWorker.DoWork, New DoWorkEventHandler(AddressOf Me.CheckService) 

    _ServiceBGWorker.RunWorkerAsync() 
    While _ServiceBGWorker.IsBusy 
     Application.DoEvents() 
    End While 
End Sub 

Private Sub CheckService(ByVal sender As Object, ByVal e As DoWorkEventArgs) 

    If CheckService("Service 3.5") = ServiceControllerStatus.Stopped Then 
     PBServiceStatus35.Image = ImgStopIcon 
    ElseIf CheckService("Service 3.5") = ServiceControllerStatus.Running Then 

     PBServiceStatus35.Image = ImgGoIcon 
    Else 
     PBServiceStatus35.Image = ImgHelpIcon 
    End If 

    If CheckService("Service 3.6") = ServiceControllerStatus.Stopped Then 

     PBServiceStatus36.Image = ImgStopIcon 
    ElseIf CheckService("Service 3.6") = ServiceControllerStatus.Running Then 

     PBServiceStatus36.Image = ImgGoIcon 
    Else 
     PBServiceStatus36.Image = ImgHelpIcon 
    End If 

    If CheckService("Service 3.7") = ServiceControllerStatus.Stopped Then 
     PBServiceStatus37.Image = ImgStopIcon 
    ElseIf CheckService("Service 3.7") = ServiceControllerStatus.Running Then 
     PBServiceStatus37.Image = ImgGoIcon 
    Else 
     PBServiceStatus37.Image = ImgHelpIcon 
    End If 

    If CheckService("Service 4.0") = ServiceControllerStatus.Stopped Then 
     PBServiceStatus40.Image = ImgStopIcon 
    ElseIf CheckService("Service 4.0") = ServiceControllerStatus.Running Then 
     PBServiceStatus40.Image = ImgGoIcon 
    Else 
     PBServiceStatus40.Image = ImgHelpIcon 
    End If 
End Sub 


Private Function CheckService(ByVal ServiceName As String) 
    Dim myController = New ServiceController(ServiceName) 
    myController.MachineName = SQLServerName 
    myController.Refresh() 
    Return myController.Status 
End Function 

Answer 1

Cette boucle while est complètement inutile:

While _ServiceBGWorker.IsBusy 
    Application.DoEvents() 
End While 

Je ne vois pas comment cela pourrait causer votre problème direct ici cependant, mais vous pourriez essayer sans. Sur une note connexe, il serait judicieux d'ajouter un gestionnaire Terminé et de vérifier l'état e.Error. Peut-être que quelque chose jette des exceptions. Avec votre code actuel, vous ne saurez jamais.

Answer 2

Il ne serait pas dommage de revoir la documentation MSDN Background Worker Class. Une note qui lit

Vous devez veiller à ne pas manipuler les objets de l'interface utilisateur dans votre gestionnaire d'événements DoWork. Au lieu de cela, communiquez avec l'interface utilisateur via les événements ProgressChanged et RunWorkerCompleted.

Ainsi, au lieu de manipuler votre zone d'image dans votre gestionnaire DoWork, utilisez les gestionnaires mentionnés ci-dessus. J'ai écrit deux formulaires simples et en charge un à partir d'un gestionnaire DoWork et le formulaire et l'interface utilisateur indéfiniment suspendue lorsque le formulaire est chargé à partir de DoWork, mais répond correctement des autres.