VB6.0 获取WebBrowser当前打开页面的网址

比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示
www.baidu.com

最好还能得到当前页面的标题
最新回答
浮生远离

2024-09-18 00:06:58

VB6.0可通过WebBrowser控件的DocumentComplete事件来获取当前打开页面的URL(网址)。

  • DocumentComplete事件

    描述

    当被导航到该文件达到READYSTATE_COMPLETE状态时发生。

  • URL 属性

    设置或返回 Execute 或 OpenURL 方法使用的
    URL。

  • 代码实例,新建VB的EXE工程,添加一个WebBrowser控件到窗体,放置一个TextBox控件。

    Private Sub Form_Load()

        On Error GoTo useErr

        WebBrowser1.Navigate "

    http://zhidao.baidu.com/"

        Exit Sub

    useErr:

    Print "ERR"

    End Sub


    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Text1.Text = URL

    End Sub

时光让我们忘记模样

2024-09-18 00:44:37

请在webbrowser浏览控件的documentcomplete()事件中添加代码:text1.text=url 在webbrowser控件的titlechange()事件中添加代码:me.caption=text 即可。实现效果:文本框text1中显示网页地址,窗体标题显示网页标题。希望对您有所帮助!
一口醉

2024-09-18 01:08:52

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub