vb程序WebBrowser控件如何实现返回

来源：百度知道 编辑：UC知道 时间：2024/09/21 06:41:00
当点击WebBrowser控件中网页的一个链接打开另一个网页，如何实现自动返回到前一个网页？
即打开了另一个网页立即后退.

当网址显示为http://www.163.com,立即返回到http://www.baidu.com,要怎样实现?

Private strurl As String

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If InStr(1, UCase(URL), "www.163.com") Then Cancel = True
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
If InStr(1, UCase(strurl), "www.163.com") Then Cancel = True '如果含http://www.163.com不弹出窗口
'下面语句是如果访问163，则转百度
'If InStr(1, UCase(strurl), "www.163.com") Then WebBrowser1.Navigate "http://www.b