看Microsoft帮助: http://support.microsoft.com/kb/279535 若要取消默认 Internet Explorer 的错误消息的窗口 onerror 事件,您可以将事件对象的 returnValue 属性设置为 True。 要在 returnValue 属性设置为 True,请执行以下步骤: 创建一个新的 Visual Basic 标准 EXE 项目。默认情况下创建 Form1。 向 Form1 中添加一个 web 浏览器控件。 添加到 Microsoft HTML 对象的一个项目引用库 (Mshtml.tlb)。 在 Form1 的声明部分中添加以下代码: Dim WithEvents objDoc As MSHTML.HTMLDocument Dim WithEvents objWind As MSHTML.HTMLWindow2 Dim objEvent As CEventObj WebBrowser1_NavigateComplete 事件中添加以下代码: Private Sub WebBrowser1_NavigateComplete() Set objDoc = WebBrowser1.Document Set objWind = objDoc.parentWindow
End Sub将添加事件处理程序的窗口 onerror 事件,如下所示: Private Sub objWind_onerror(ByVal description As String, ByVal URL As String, ByVal line As Long)
Set objEvent = objWind.event objEvent.returnValue = True MsgBox (description)
End Sub注意此方法将不补漏白编译错误。此外,此方法仅取消该错误消息时关闭脚本调试器在 Internet Explorer 中。设计,如果启用脚本调试程序不是取消该错误。若要关闭脚本调试器在 Internet 浏览器,在 工具 菜单上单击 Internet 选项。在 高级 选项卡上选择 禁用脚本调试 复选框,然后单击 确定。
http://support.microsoft.com/kb/279535
若要取消默认 Internet Explorer 的错误消息的窗口 onerror 事件,您可以将事件对象的 returnValue 属性设置为 True。
要在 returnValue 属性设置为 True,请执行以下步骤:
创建一个新的 Visual Basic 标准 EXE 项目。默认情况下创建 Form1。
向 Form1 中添加一个 web 浏览器控件。
添加到 Microsoft HTML 对象的一个项目引用库 (Mshtml.tlb)。
在 Form1 的声明部分中添加以下代码:
Dim WithEvents objDoc As MSHTML.HTMLDocument
Dim WithEvents objWind As MSHTML.HTMLWindow2
Dim objEvent As CEventObj
WebBrowser1_NavigateComplete 事件中添加以下代码:
Private Sub WebBrowser1_NavigateComplete() Set objDoc = WebBrowser1.Document
Set objWind = objDoc.parentWindow
End Sub将添加事件处理程序的窗口 onerror 事件,如下所示:
Private Sub objWind_onerror(ByVal description As String, ByVal URL As String, ByVal line As Long)
Set objEvent = objWind.event
objEvent.returnValue = True
MsgBox (description)
End Sub注意此方法将不补漏白编译错误。此外,此方法仅取消该错误消息时关闭脚本调试器在 Internet Explorer 中。设计,如果启用脚本调试程序不是取消该错误。若要关闭脚本调试器在 Internet 浏览器,在 工具 菜单上单击 Internet 选项。在 高级 选项卡上选择 禁用脚本调试 复选框,然后单击 确定。