vb6 - VB6 アプリケーション: WebBrowser.Navigate は 3 分ごとに更新します

Question

このコードを使用して WebBrowser ウィンドウが起動される VB6 を使用してアプリケーションを作成しています。

     Private Sub Form_Load()
     WebBrowser1.Navigate ("http://google.com")
     End Sub

ウィンドウを3分ごとに同じURLを更新するにはどうすればよいですか? 私はそれがよく知られているはずだと知っていますが、私はまだVBプログラミングを通して自分の道を探しています

Answer 1

2つのタイマーは必要ありません。最後にナビゲートした時間を保持するグローバル変数globalTimer As Dateを用意するだけです。 Timer1 を毎秒または毎分実行するように設定できます。より正確には、毎秒をお勧めします。

Dim globalTimer As Date
...
Private Sub Timer1_Timer()
    If Now >= DateAdd("n", 3, globalTimer) Then    ' its been at least 3 minutes since last Navigation
        WebBrowser1.Navigate ("http://google.com") ' Navigate
        globalTimer = Now                          ' store the new navigation time
    End If
End Sub

Answer 2

タイマーを使用して、一定の間隔でコードを実行できます。VB6 タイマーの最大間隔は ~65 秒であるため、60,000 ミリ秒間隔に設定し、別のカウンターを保持し、3 になったら 0 にリセットしてリフレッシュを実行できます。

Private Sub Timer_Timer
  'Increment minute count
  FireCount = FireCount + 1

  If FireCount = 3 then
    'Reset to 0 for next time
    FireCount = 0

    'Refresh web browser
  End If
End Sub