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
  • 相关阅读:
    WinForm中快捷键与组合按键的设置方法
    WinForm窗体间传值的方法
    System.Data.SqlClient 命名空间
    登录
    查找和替换
    进制转换
    对话框
    Object基类
    抽象类与抽象方法
    千位数减百位数不退位 区间代换
  • 原文地址:https://www.cnblogs.com/nanfei/p/3937047.html
Copyright © 2011-2022 走看看