7,763
社区成员
发帖
与我相关
我的任务
分享
Dim WithEvents m_Doc As HTMLDocument
Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "about:blank"
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Set m_Doc = Me.WebBrowser1.Document
Me.WebBrowser1.Document.write "中国人"
End Sub
Private Function m_Doc_onclick() As Boolean
MsgBox "鼠标单击事件"
End Function