1,502
社区成员




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