WebBrowser.Navigate每X分钟刷新一次

Question

我正在使用VB6创建一个应用程序，其中使用此代码启动WebBrowser窗口，并且每3分钟刷新一次页面

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

  Private Sub T_Timer()

 'Increment minute count
  FireCount = FireCount + 1

  If FireCount = 3 Then
'Reset to 0 for next time
 FireCount = 0
 WebBrowser1.Refresh ("http://www.google.com")
'Refresh web browser
  End If
 End Sub

但它会给我一个警告说编译错误：错误的数字或参数或无效的属性赋值。任何人都可以帮我找出我的错误吗？

Answer 1

假设WebBrowser1是一个WebBrowser控件，那么您正在错误地调用 Refresh（）方法。 WebBrowser.Refresh（）不带参数：

'Refresh web browser
WebBrowser1.Refresh

来自MSDN：

  

参数数量错误或属性分配无效（错误450）

     

过程的参数数量必须与过程定义中的参数数量相匹配。

您还可以注意到，当编译失败时，VB6 IDE会将焦点设置为违规行。与错误描述一起考虑，此信息通常足以确定简单的语法错误。