Private WithEvents htmlDocument As htmlDocument
Private WithEvents btnCompute As MSHTML.HTMLButtonElement
Private WithEvents txtNum1 As MSHTML.HTMLInputTextElement
Private WithEvents txtNum2 As MSHTML.HTMLInputTextElement
Private WithEvents txtResult As MSHTML.HTMLInputTextElement
Private Function btnCompute_onclick() As Boolean
On Error GoTo ErrHandler:
txtResult.Value = CDbl(txtNum1.Value) + CDbl(txtNum2.Value)
Exit Function
ErrHandler:
MsgBox Err.Description
End Function
Private Sub Command1_Click()
Text1.Visible = Not Text1.Visible
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
Do While WebBrowser1.Busy Or WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
WebBrowser1.Document.write Text1.Text
Do While WebBrowser1.Busy Or WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set htmlDocument = WebBrowser1.Document
Set btnCompute = htmlDocument.getElementById("btnCompute")
Set txtNum1 = htmlDocument.getElementById("txtNum1")
Set txtNum2 = htmlDocument.getElementById("txtNum2")
Set txtResult = htmlDocument.getElementById("txtResult")
End Sub
Private Function htmlDocument_onclick() As Boolean
Debug.Print "触发了元素" & htmlDocument.parentWindow.event.srcElement.id & "的" & htmlDocument.parentWindow.event.Type & "事件"
End Function