‘====VB判断webbrowser网页加载完毕
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Msgbox "网页下载完毕!"
End If
End Sub
时间: 2024-10-18 08:32:41
‘====VB判断webbrowser网页加载完毕
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Msgbox "网页下载完毕!"
End If
End Sub