WEBBROWSER控件问题

kwsxz 2011-05-08 10:41:18

如何根据WEBBROWSER页面中的超链接获取该链接在WEBBROWSER控件中的X,Y值

...全文

63 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

ndsc213456789 2011-05-09

打赏
举报

回复

Dim rc As IHTMLRect
rc=WEBBROWSER1.document.getElementById("超链接对象ID").getBoundingClientRect
rc.left ,rc.top 就该链接在WEBBROWSER控件中的X,Y值

kwsxz 2011-05-09

打赏
举报

回复

[Quote=引用 4 楼 dbcontrols 的回复:]
这个还与浏览器的分辨率有关系吧？
[/Quote]
就是不知道怎么获取啊，老大你知道么？

dbcontrols 2011-05-09

打赏
举报

回复

这个还与浏览器的分辨率有关系吧？

kwsxz 2011-05-09

打赏
举报

回复

[Quote=引用 1 楼 theforever 的回复:]
WEBBROWSER1.document.getElementById('超链接对象ID').offsetLeft
WEBBROWSER1.document.getElementById('超链接对象ID').offsetTop
[/Quote]

超链接对象ID是什么？比如http://www.hao123.com/ 我想知道新浪的坐标

<tr><td><a href="http://www.baidu.com">百　度</a></td><td><a href="http://www.sina.com.cn">新　浪</a></td><td><a href="http://www.qq.com">腾　讯</a></td><td><a href="http://www.sohu.com">搜　狐</a></td><td><a href="http://www.163.com">网　易</a></td><td><a href="http://www.google.com.hk/">谷　歌</a></td></tr>

碧海情天-赵亮 2011-05-08

打赏
举报

回复

WEBBROWSER1.document.getElementById('超链接对象ID').offsetLeft
WEBBROWSER1.document.getElementById('超链接对象ID').offsetTop

WebBrowser控件使用详解，WebBrowser控件使用详解

1，在项目中引用程序集拓展中的Microsoft.mshtml后，可以在公共控件中找到WebBrowser控件。 2，在窗体中加入三个按钮，然后添加WebBrowser控件，右键控件选属性，设置相应的属性。 3，设置WebBrowser控件的属性 public Form1() { InitializeComponent(); webBrowser1.ScriptErrorsSuppressed = true; //跳过脚本错误提示 } 4，双击按钮添加代码，调用WebBrowser控件的Navigate方法实现显示不同网页 private void button1_Click(object sender, EventArgs e) { webBrowser1.Navigate("网址"); } 5，实现点链接而不弹窗，右击WebBrowser控件选择属性，在相应属性面板中查看它所支持的事件，激活NewWindow事件，在事件函数中添加如下代码； private void webBrowser1_NewWindow(object sender, CancelEventArgs e) { //防止弹窗； e.Cancel = true; string url = this.webBrowser1.StatusText; this.webBrowser1.Url = new Uri(url); }

WebBrowser控件技巧集

Excel2007 VBA使用WebBrowser控件登录12306网站，推荐IE8，IE9也可以登录，但后继不能查询车票，是脑残的12306的问题。程序涉及计时器、表单提交、页面加载完成判定、页面文字判断等多个方面。代码来自网上若干人的支持

vb6_Webbrowser控件使用技巧 1、获得浏览器信息： Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow = WebBrowser1.Document.parentWindow Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = Nothing End Sub 点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。 2、弹出Webbrowser消息窗口 Dim oWindow Set oWindow = WebBrowser1.Document.parentWindow oWindow.confirm "abcd" VB调用webbrowser技巧集2 向Webbrowser中写入HTML内容的几种方法

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章