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
  • 相关阅读:
    4-18
    Vue学习 2017-4-9
    前端杂谈
    不错的博客哦!
    待整理知识杂项
    Vue学习历程
    王工的权限理解
    【NX二次开发】图标图像
    【转】C++怎么读写windows剪贴板的内容?比如说自动把一个字符串复制.
    获取计算机名
  • 原文地址:https://www.cnblogs.com/nanfei/p/3937047.html
Copyright © 2011-2022 走看看