繰り返しが意図したとおりに動作しない

Question

私はインターネット接続をテストするために使用している関数をループするためにDOインターアクションを使用しています。コードが正常に動作していますが、テストの1つが満たされるとループが停止します。私はプログラムが実行されている間、これをバックグラウンドで継続したい。これをどのように機能させることができますか？

Private Sub checkInternet() 

    Dim InetChecker As Boolean 
    InetChecker = CheckForInternetConnection() 
    Do While LabelCount.Text <> "" 
     Thread.Sleep(10) 
     If InetChecker = True Then 
      Dim image = My.Resources.greenbar 
      PictureBox4.Image = image 

     Else 
      Thread.Sleep(10) 
      Dim image = My.Resources.redbar 
      PictureBox4.Image = image 
      'NoInetConnError.Show() 
     End If 
    Loop 
End Sub 

ご協力いただき誠にありがとうございます。

Answer 1

フォーム上のBackgroundWorkerを入れて（ツールボックスのコンポーネントセクションでそれを見つけるでしょう）：あなたの状況については、MSDNの例を変更

、あなたはこのような何かを行うことができます。

[プロパティ]ウィンドウで、BackgroundWorkerにWorkerReportsProgress〜Trueを設定します。

Sub BackgroundWorker1_DoWork別のスレッドで実行され、それが実行されている間、あなたのフォームを凍結しないことを、あなたのフォーム

Private connected As Boolean 

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) _ 
Handles BackgroundWorker1.DoWork 
    While True 
     Dim online = CheckForInternetConnection() 
     If online <> connected Then 
      connected = online 
      BackgroundWorker1.ReportProgress(CInt(online)) 
     End If 
     Thread.Sleep(500) 
    End While 
End Sub 

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) _ 
Handles BackgroundWorker1.ProgressChanged 
    Dim online As Boolean = CBool(e.ProgressPercentage) 
    If online Then 
     PictureBox4.Image = My.Resources.greenbar 
    Else 
     PictureBox4.Image = My.Resources.redbar 
    End If 
End Sub 

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles MyBase.Load 
    ' Start the background worker 
    BackgroundWorker1.RunWorkerAsync() 
End Sub 

ノートに以下のコードを挿入します。

Answer 2

Timerでこのようなことを行うのが最善でしょう。

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick 
    If CheckForInternetConnection Then 
    PictureBox4.Image = My.Resources.greenbar 
    Else 
    PictureBox4.Image = My.Resources.redbar 
    End If 
End Sub 

Answer 3

あなたは、.NET Framework 3+へのアクセス権を持っているなら、あなたは基本的にあなたがTickイベントを処理することができます（必要なものは何でも長さに設定）の間隔を作成するDispatcherTimerクラスを使用することができます。 tickイベントが発生すると、インターネット接続チェックを行うことができます。

' DispatcherTimer setup 
dispatcherTimer = New Threading.DispatcherTimer() 
AddHandler dispatcherTimer.Tick, AddressOf dispatcherTimer_Tick 
dispatcherTimer.Interval = New TimeSpan(0,0,1) ' Or however long you want 
dispatcherTimer.Start() 

Private Sub dispatcherTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) 
    ' Checks to see whether an internet connection is still available etc 
    checkInternet() 

    ' Forcing the CommandManager to raise the RequerySuggested event 
    CommandManager.InvalidateRequerySuggested() 
End Sub