0

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

  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

知道为什么上面的代码会崩溃

4

1 回答 1

0

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

"meta http-equiv="X-UA-Compatible" 内容="IE=9" "

这解决了我的问题

于 2013-01-09T08:27:42.203 回答