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
  • 相关阅读:
    录屏软件 OBS Studio
    ubuntu安装以及美化
    win10系统软件安装列表
    GNSS数据的弱点
    理解TomoDD生成的地壳模型的格式
    acrobat DC install
    matlab平行运算 parrelpool
    写申请地震台网数据的申请表
    强震动数据的网站
    visual studio各个版本的key
  • 原文地址:https://www.cnblogs.com/nanfei/p/3937047.html
Copyright © 2011-2022 走看看