求助 VB 错误提示问题万分感谢

来源：百度知道编辑：UC知道时间：2024/06/17 21:23:14

求助 VB 错误提示问题

这段代码如果在不联网的情况下怎么提示网络错误

我想让这段代码如果在不联网的情况下提示下面的警告
MsgBox "抱歉不能完成您的请求原因：网络错误，可能是您没有联网或网络繁忙。请稍候再试。", 16 + 0, "网络错误"

'代码
On Error Resume Next '加这句就可以忽略错误

WebBrowser1.Navigate "我的网址1 百度知道不让贴"
WebBrowser2.Navigate "我的网址2 百度知道不让贴"
Dim vTag As Variant, I As Integer, vCount As Integer
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
Set vTag = WebBrowser1.Document.getElementsByTagName("a")
vCount = vTag.length
For I = 0 To vCount - 1
'获得网页中指定链接名称的 URL 地址
If vTag(I).innerText = "链接1" Then WebBrowser1.Document.All.Tags("a")(I).Click
Next
End If

不要用on error resume
而是用on error goto errcode

然后在errcode标号的行内写入你的msgbox的内容就行了

例：
private sub test()

on error goto errcode

exit sub

errcode:
MsgBox "抱歉不能完成您的请求原因：网络错误，可能是您没有联网或网络繁忙。请稍候再试。", 16 + 0, "网络错误"
end sub

vb提示实时错误75 开机提示错误！求助安装VB 错误时提示错误1402 求助vb错误帮忙解答高分求助关于开机出现错误提示的问题 VB 出错提示问题系统启动时提示错误,求助!!!! 求助 PS的错误提示求助！！生成exe提示错误 FairUse4WM使用方法，提示错误求助

求助 VB 错误提示问题 万分感谢

求助 VB 错误提示问题万分感谢