如何禁止单击webbrowser中的所有链接?

Treenewbee 2014-02-09 02:35:58
如何禁止单击webbrowser中的所有链接?
...全文
209 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
一如既往哈 2014-03-29
  • 打赏
  • 举报
回复
从document的onclick事前可以做到 如:
Option Explicit
Private WithEvents bDoc As HTMLDocument

Private Function bDoc_onclick() As Boolean
    Dim obj As IHTMLElement
    Set obj = bDoc.parentWindow.event.srcElement
    If obj.tagName = "A" Then Exit Function
    bDoc_onclick = True
End Function

Private Sub Command1_Click()
    Dim w1 As String
    w1 = "<a href='http://www.csdn.com'>点击试试</a>"
    WB.Document.body.innerhtml = w1
    Set bDoc = WB.Document
End Sub

Private Sub Form_Load()
    WB.Navigate "about:blank"
End Sub

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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