求事件
如何webbrowser1.lcocationname
地址显示到combo1.text中如何做到
代码如下。注意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
=================
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
温馨提示:答案为网友推荐,仅供参考
第1个回答 2008-09-14
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
combo1.Text = WebBrowser1.LocationURL
End Sub
combo1.Text = WebBrowser1.LocationURL
End Sub