Фоновая работа, вызывающая зависание пользовательского интерфейса

Question

У меня есть работник фона, который проверяет состояние четырех служб на удаленном сервере. Это настройка таймера (5 секунд), как показано ниже. По какой-то причине он висит в пользовательском потоке, заставляя приложение «блокировать» на секунду каждый тик, я не могу понять почему ?!

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

Это в то время как петля полностью ненужная:

While _ServiceBGWorker.IsBusy 
    Application.DoEvents() 
End While 

Я не вижу, как это может привести к вашей прямой задаче, хотя здесь, но вы можете попробовать без него.

В отношении соответствующей заметки было бы неплохо добавить обработчик Completed и проверить состояние e.Error. Может быть, что-то бросает исключения. С вашим текущим кодом вы никогда не узнаете.

Answer 2

Не помешает пересмотреть документацию MSDN Background Worker Class. Примечание, которое гласит:

Вы должны быть осторожны, чтобы не манипулировать объектами пользовательского интерфейса в обработчике событий DoWork. Вместо этого вы можете связаться с пользовательским интерфейсом через события ProgressChanged и RunWorkerCompleted.

Таким образом, вместо манипулирования вашим файловым полем в обработчике DoWork используйте вышеупомянутые обработчики. Я написал две простые формы и загрузил один из обработчика DoWork, и форма и пользовательский интерфейс весят бесконечно, когда форма загружается из DoWork, но правильно реагирует на другие.