想在地址栏显示真正的url地址。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)
On Error Resume Next
Combo1.Text = URL
End Sub
On Error Resume Next
Combo1.Text = URL
End Sub
不知道这样行不行