vb6 webbrowser 事件捕获
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
桂棹兮兰桨,击空明兮溯流光。