关于WebBrowser导航问题

1、如何确定打开的新窗口的URL

2、如何使新窗口不弹出而是在原来页面中显示

实际上属于转贴。。呵呵:-)

原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。

原文的中文地址是：

http://support.microsoft.com/kb/185538/zh-cn

实际上，这个实现就是获取一个接口，还是叫事件吧。。。。更明显，反正我是分不清这些东西的。

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

163的链接一般都是弹出窗口，就用163吧

Private Sub Form_Load()
 Set Web_V1 = WebBrowser1.Object
      WebBrowser1.Navigate2 "http://www.163.com/"
End Sub

如果你想知道弹出窗口的URL呢，那就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
                                   ByVal Flags As Long, _
                                   ByVal TargetFrameName As String, _
                                   PostData As Variant, _
                                   ByVal Headers As String, _
                                   Processed As Boolean)

         Processed = False
         MsgBox URL

End Sub

如果你想让弹出窗口在原来的窗体里显示呢，就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
                                   ByVal Flags As Long, _
                                   ByVal TargetFrameName As String, _
                                   PostData As Variant, _
                                   ByVal Headers As String, _
                                   Processed As Boolean)

         Processed = True
         WebBrowser1.Navigate URL
End Sub
                 

OK，完事。

实际上，很多东东不要整天GOOGLE,BAIDU的，查个技术没有不保密的，找个代码没有完整的，弄个教程没有不过时的，写个博客没有不装明白加唧唧歪歪的（例如我），回答个问题没有不踹点小心眼的，都是些高手（虽然这句话偷换了点啥，不过将就着看吧，我语文不好）。我最近就有特别感触，这些中国的程序员，全拿点东西就当宝，宝个máo吧，都懂几个问题，反正我不懂几个；有些问题该去微软看看你就去看看，很多东西还是让你瞠目结舌的，特别是那些闭关自守的LJ们。