Question

VB的WebBrowser连接不到网页时显示指定的图片要怎么做

Answer 1

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
WebBrowser1.Navigate App.Path & "\1.gif" '指定的图片自己改，图片一定要存在且无错
End Sub

追问

不能用哪，要是直接显示的话就可以，但是要是连接不上显示的话就不行

追答

我试过是可以的哦

追问

麻烦您帮我看看是不是哪里的代码错了
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
WebBrowser1.Navigate App.Path & "G:\自动更换壁纸目录\001.jpg"
End Sub

追答

WebBrowser1.Navigate "G:\自动更换壁纸目录\001.jpg"

我加上App.Path是指图片和程序在同一个文件夹。而你的图片是放在绝对路径上的，就不用App.Path了