WebBrowser中该页无法显示的问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 23:00:45
我用WebBrowser打开网页

但有时网页上会显示“该页无法显示”

但我用WebBrowser的WebBrowser1.LocationURL判断和
WebBrowser1.LocationName判断都不起作用，当该页无法显示的时候，WebBrowser的标题和url都是我原来的名字，无任何改变，
但我用
On Error GoTo b
··
····
b:
WebBrowser1.Navigate "http：//····"的方法可以成功

‘******************
问题是我这个过程当中有好多Err 怎样识别出该页无法显示时的ERR
或是说遇到该页无法显示时On Error GoTo b，遇到其他问题时On Error Resume Next
或是判断网页的源文件中是否有该页无法显示的字符。请达人们支招
一楼的大哥

写入你的代码后提示
编译错误
过程声明与同名事件或过程的描述不匹配

Private Sub WebBrowser1_NavigateError(index As Integer, ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
WebBrowser1.Navigate "about:blank"
End Sub

啊,不好意思,我的webbrowser1是控件数组,所以你要把index As Integer给去掉....或者你也可以这样:
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
if Text="没有可以显示的页面" then
WebBrowser1.Navigate "about:blank"
end if
End Sub

这个问题我也遇到过 不好解决

建议你还是判断网页源代码

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Me.Caption = Text
Text1.Text = WebBrowser1.LocationURL
End Sub