关于Ｎａｖｉｇａｔｅ２和ＢｅｆｏｒｅＮａｖｉｇａｔｅ２的问题！！？？

[Jiancash]

Ｎａｖｉｇａｔｅ２和ＢｅｆｏｒｅＮａｖｉｇａｔｅ２怎么用？他们是不是ＷｅｂＢｒｏｗｓｅｒ控件的属性？编写代码时在ＷｅｂＢｒｏｗｓｅｒ中没找到这个噢，那么应该敲到那里噢？

[lion_wing]

try it like this:

Private WithEvents Web As WebBrowser

Private Sub Command1_Click()
Set Web = WebBrowser1
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Private Sub Web_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox URL
End Sub

[Jiancash]

Private Sub Web_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)这段敲到代码中的哪里哦？

[lion_wing]

和上面的代码放在一个模块

[lailuboy]

Ｎａｖｉｇａｔｅ２和ＢｅｆｏｒｅＮａｖｉｇａｔｅ２是WebBrowse的事件，用于你打开页面时和打开页面前执行什么动作

[Jiancash]

怎么没人回呢？？

[Jiancash]

哦

[Jiancash]

那应该在哪找这个东西啊？