VB6.0 获取WebBrowser当前打开页面的网址
比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示www.baidu.com最好还能得到当前页面的标题...
比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示www.baidu.com
最好还能得到当前页面的标题 展开
最好还能得到当前页面的标题 展开
3个回答
展开全部
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
展开全部
请在webbrowser浏览控件的documentcomplete()事件中添加代码:text1.text=url 在webbrowser控件的titlechange()事件中添加代码:me.caption=text 即可。实现效果:文本框text1中显示网页地址,窗体标题显示网页标题。希望对您有所帮助!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub
text1.text= WebBrowser1.LocationName & " " & url
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询