Question

我正在使用VB6创建一个应用程序，其中使用以下代码启动WebBrowser窗口：

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

如何让窗口刷新相同的网址，每说3分钟？我知道它应该是众所周知的，但我仍在通过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定时器的最大间隔为~65s，您可以将其设置为60,000ms间隔，并保持单独的计数器，当它达到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

VB6应用程序：WebBrowser.Navigate每3分钟刷新一次

2 个答案: