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

Treenewbee 2014-02-09 02:35:58
如何禁止单击webbrowser中的所有链接?
...全文
135 点赞 收藏 1
写回复
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
回复 点赞
发动态
发帖子
网络编程
创建于2007-09-28

1145

社区成员

1.8w+

社区内容

VB 网络编程
社区公告
暂无公告