Question

vb 求事件！webbrowser控件如何像IE一样 访问页面自动显示url地址呢？

求事件
如何webbrowser1.lcocationname
地址显示到combo1.text中如何做到

Answer 1

代码如下。注意Combo1的Style属性不能为2.
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
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)
Combo1.Text = URL
End Sub

Answer 2

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