zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    PHP设计模式
    PHP 面向对象
    MYSQL 覆盖索引
    MYSQL IOPS、QPS、TPS
    MySQL 事务嵌套
    MySQL 慢查询优化
    MySQL 查询状态
    MySQL 乐观锁和悲观锁
    MySQL 分库、分表
    Spring Boot 全局异常捕捉,自定义异常并统一返回
  • 原文地址:https://www.cnblogs.com/nanfei/p/3937047.html
Copyright © 2011-2022 走看看