是要HTML Object Library里的,不要用WebBrowser1_StatusTextChange去获取 (因为需要获取该对象)如何获取 鼠标 放在链接上时 的URL地址?(鼠标没点击)下面是对着 链接 点右键,获取该链接的方法Dim WithEvents objDoc As HTMLDocumentPrivate Sub WebBrowser1_DownloadComplete()
Set objDoc = WebBrowser1.Document
End SubPrivate Function objDoc_oncontextmenu() As Boolean '这个是鼠标 右键 点链接时,获取该链接 的URL
objDoc_oncontextmenu = True
Msgbox objDoc.activeElement.href End Function''''鼠标经过链接,去获取,估计是在onmouseover里,但具体不知道怎么写了。Private Sub objDoc_onmouseover()''高手补充内容???
End Sub
Set objDoc = WebBrowser1.Document
End SubPrivate Function objDoc_oncontextmenu() As Boolean '这个是鼠标 右键 点链接时,获取该链接 的URL
objDoc_oncontextmenu = True
Msgbox objDoc.activeElement.href End Function''''鼠标经过链接,去获取,估计是在onmouseover里,但具体不知道怎么写了。Private Sub objDoc_onmouseover()''高手补充内容???
End Sub
解决方案 »
- 求助!vb中combobox模拟qq用户名输入框
- 文件检索问题!
- sql int类型增加问题?
- 关于使用microsoft internrt transfer控件的问题(100分赠送)
- excel连接问题
- CrystalReports(水晶报表)的版权问题
- 如何在vb里实现规定的时间里提醒??
- 用过Pervasive数据库的请进来。。。。给分
- vb向sql server数据库中存取图片
- 如何给ListView发消息?请高手回答!
- 关于VB中DataGrid控件小弟有几个问题,那位好心的大哥帮哈忙啊。前几天有位好心的大哥帮我解决了如何从access中把数据那到树状控件中,在此谢谢你啦。
- 关于图片读取问题
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Debug.Print Text
End Sub