vb 检测 链接 跳转

来源：百度知道 编辑：UC知道 时间：2024/09/22 07:06:53
WebBrowser1，我已经设置成visible=false，就是隐藏了~

我的form中 WebBrowser1 链接了一个网址，如：baidu.com

在text中输入另一个网址（如：google.com），点击按钮，实现跳转到google

如何检测到是否跳转成功？成功的话，msgbox"OK"，不成功，msgbox"NO"

====================================

请给出详细源码~~~~

====================================

不会者，没有看懂问题者，刷分者，请不要回复~~

没试过，转两个办法，自觉着能用的上。
1. WebBrowser的DownloadComplete事件 当网页下载完成时触发

2. 判断busy状态，
Do While WebBrowser1.Busy
DoEvents
Loop

你需要用上面两个方法判断一下，是否可用。

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.LocationURL
End Sub