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

您可能感兴趣问答

Collapsible

热门标签

编程 Python Microsoft 编程语言 C++ C（编程语言） Java javascript PHP 前端开发 MySQL Office 计算机 Java编程 Excel vue dedecms 数据库 正则表达式 计算机语言

热点问答