Picture Box прерывистый - PullRequest
Новая
       8

Picture Box прерывистый

0 голосов
/ 03 июля 2018

Привет, ребята, у меня есть фоновый работник, который обновляет графическое окно, проверяющее пинг и основанное на времени отклика, выбирает 1 из 6 различных изображений, чтобы заполнить поле ... похоже на изображение сигнальной полосы. Я установил изображение ошибки как изображение, которое выглядит как ноль столбцов, но по какой-то причине из-за того, что оно решает, будет отображаться изображение ошибки красного X и даже при отладке, я могу видеть, что это основано на ответе ping. говорит, что загружает правильную картинку из ресурсов ... ну, это не меняет ее. фоновый рабочий запускается таймером, установленным на 1000 мс, но поднял его до 5 секунд и все еще получает ошибку ... собираюсь включить код и изображения, если я смогу понять, как lol 

Public Sub CheckNetwork()
    Dim Result As Net.NetworkInformation.PingReply
    Dim SendPing As New Net.NetworkInformation.Ping
    Dim ResponseTime As Long '<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    Try
        Result = SendPing.Send("8.8.8.8")
        ResponseTime = Result.RoundtripTime
        If Result.Status = Net.NetworkInformation.IPStatus.Success Then
            If ResponseTime.ToString > 0 And ResponseTime.ToString < 35 Then
                pbInternetStatus.Load("resources\signal5.png")
            ElseIf ResponseTime.ToString >= 35 And ResponseTime.ToString < 45 Then
                pbInternetStatus.Load("resources\signal4.png")
            ElseIf ResponseTime.ToString >= 45 And ResponseTime.ToString < 65 Then
                pbInternetStatus.Load("resources\signal3.png")
            ElseIf ResponseTime.ToString >= 65 And ResponseTime.ToString < 85 Then
                pbInternetStatus.Load("resources\signal2.png")
            ElseIf ResponseTime.ToString >= 85 Then
                pbInternetStatus.Load("resources\signal1.png")
            End If
        Else
            pbInternetStatus.Load("resources\signal0.png")
        End If
    Catch ex As Exception
    End Try
End Sub

Private Sub bgwCheckNetwork_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bgwCheckNetwork.DoWork
    CheckNetwork()
End Sub

Private Sub tmrNetCheck_Tick(sender As Object, e As EventArgs) Handles tmrNetCheck.Tick
    If Not bgwCheckNetwork.IsBusy Then
        bgwCheckNetwork.RunWorkerAsync()
        bgwCheckNetwork.Dispose()
    End If
End Sub

Изображение без ошибок:

Without the error

Изображение с ошибкой:

With the error

...