VB中WebBrowser 如何判断下载结束
想要在WebBrowser连续载入三个网页例如:(1)打开www.126.com(2)判断网页完全打开后,打开www.163.com(3)当前面网页完全打开后,打开www...
想要在WebBrowser连续载入三个网页
例如:
(1)打开www.126.com
(2)判断网页完全打开后,打开www.163.com
(3)当前面网页完全打开后,打开www.21cn.com
需要给去源码,谢谢(主要是那个连续判断的过程)
使用WebBrowser1_DocumentComplete能连续判断吗?! 展开
例如:
(1)打开www.126.com
(2)判断网页完全打开后,打开www.163.com
(3)当前面网页完全打开后,打开www.21cn.com
需要给去源码,谢谢(主要是那个连续判断的过程)
使用WebBrowser1_DocumentComplete能连续判断吗?! 展开
1个回答
展开全部
Dim wi&
Private Sub Command1_Click()
wi = 1
WebBrowser1.Navigate ("www.126.com")
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case wi
Case 1
WebBrowser1.Navigate ("www.163.com")
wi = 2
Case 2
WebBrowser1.Navigate ("www.21cn.com")
wi = 0
End Select
End Sub
Private Sub Command1_Click()
wi = 1
WebBrowser1.Navigate ("www.126.com")
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case wi
Case 1
WebBrowser1.Navigate ("www.163.com")
wi = 2
Case 2
WebBrowser1.Navigate ("www.21cn.com")
wi = 0
End Select
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询