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

Posted 2023-03-19

比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示www.baidu.com
最好还能得到当前页面的标题

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

参考技术A 请在webbrowser浏览控件的documentcomplete()事件中添加代码：text1.text=url 在webbrowser控件的titlechange()事件中添加代码：me.caption=text 即可。实现效果：文本框text1中显示网页地址，窗体标题显示网页标题。希望对您有所帮助！ 参考技术B Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub本回答被提问者采纳

VB中如何将WebBrowser打开的网页图片缩放显示？

我用以下命令打开了该URL地址处的一张图片，如何将其放大或者缩小呢？我想让它正好充满整个WebBrowser控件！纠结好久了，大神帮帮忙吧，小弟谢了！

WebBrowser1.Navigate "http://192.168.8.1:8083/?action=snapshot"

参考技术A 如果网页是本地就简单了，你去下载个DW，网页三剑客之一的DW，别下载错了，然后在里面设置好他的大小就可以了，VB不清楚，也有一个土办法，把网页控件拉到很大，拉到你的图片能够充满追问

我是想把摄像头看到的图像实时传输到VB中，我用WEBBROWSER控件打开URL处的图片，然后用TIMER不断去刷新，可以得到实时传输的效果，但是图片切换时会有明显的一闪一闪的效果，因为图片切换的很快，刷新间隔越短闪得就越厉害 这个应该怎么解决啊？

追答

WEBBROWSER是网页控件，不适合做这种的，因为TIMER会刷新整个界面，你看起来当然是幻灯片了