WebBrowser.Navigate刷新每隔X分钟

Question

我使用VB6中使用此代码推出了web浏览器窗口提出申请，并刷新每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控件，你让刷新（）方法的一个打错的电话。 WebBrowser.Refresh（）不带参数：

'Refresh web browser 
WebBrowser1.Refresh 

从MSDN：

参数或无效的属性赋值（错误450）

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

您还可以注意到，编译失败时，VB6 IDE将焦点设置为违规行。考虑到错误描述，这些信息通常足以查明简单的语法错误。