vb.net - 图片框断断续续

Question

嗨，伙计们，我有后台工作人员，它更新正在检查 ping 的图片框，并根据响应时间选择 6 张不同图片中的 1 张来填充框……有点像信号条图片。我将错误图像设置为看起来像零条的图片，但由于某种原因，它决定显示红色 X 的错误图片，即使在调试时我也可以根据 ping 响应看到它确实告诉它从资源中加载正确的图片......它不会改变它。后台工作人员由设置为 1000 毫秒的计时器触发，但已将其提高到 5 秒，但仍然出现错误……如果我能弄清楚如何大声笑，将包括代码和图像

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

没有任何错误的图像：

显示错误的图像：

标签： vb.netpicturebox