在VBScript中调用HTML元素的自定义事件函数

我只想调用VBscript中自定义元素的函数。以下是我目前的脚本代码。但它使我的应用程序崩溃。（目标Internet Explorer浏览器）在VBScript中调用HTML元素的自定义事件函数

Function SampleFunction() 
    msgbox"samplemessage" 
    End Function 
    set ResponseFn = getRef("SampleFunction") 
    set element = document.getElementById("elem id") 
    element.addEventListener "OnResponse, ResponseFn , false 
    set cEvent = document.createEvent("CustomEvent") 
    cEvent.initCustomEvent "OnResponse", false, false, null 
    element.dispatchEvent(cEvent) 
    element.removeEventListener "OnResponse\", ResponseFn , false

任何想法，为什么上面的代码崩溃

来源

2013-01-04 user1892653

我发现上面的代码将只支持在IE 9 IE的其他版本不会支持这一点。需要在htm文件添加以下标记支持上面的代码

“元HTTP的当量=” X-UA兼容 “内容= ”IE = 9“”

这解决了我的问题

来源

2013-01-09 08:27:42 user1892653

在VBScript中调用HTML元素的自定义事件函数

回答

相关问题