无忧启动论坛

标题: 【已解决】运行 HTA 文件出错，请指教，谢谢！ [打印本页]
作者: chishingchan    时间: 2019-6-10 21:19
标题: 【已解决】运行 HTA 文件出错，请指教，谢谢！
本帖最后由 chishingchan 于 2019-6-11 08:10 编辑

系统：XP SP3 简体中文专业版
浏览器：IE8

modaldialog.hta
  1. <html>
  2. <head>
  3. <title>模态对话框</title>
  4. <HTA:APPLICATION
  5.      APPLICATIONNAME="ModalDialog">
  6. </head>

  8. <script language="VBScript">
  9. Sub CloseWindow
  10.     window.returnValue = listbox.Value
  11.     window.Close
  12. End Sub
  13. </script>

  15. <body>
  16. <select size="3" name="listbox">
  17.    <option value="1">选项 1</option>
  18.    <option value="2">选项 2</option>
  19.    <option value="3">选项 3</option>
  20.    <option value="4">选项 4</option>
  21. </select>
  22. <p>
  23. <input type="button" id="idBtn" value="确定" onclick="CloseWindow">
  24. </body>
  25. </html>
复制代码




运行后可以显示窗口，但当点击“确定”按钮后就出错，请问如何解决？谢谢！

刚才发现，原来这个 HTA 是被调用的：
  1. <html>
  2. <head>
  3. <title>Modal Example</title>
  4. <HTA:APPLICATION
  5.      APPLICATIONNAME="MainModal">
  6. </head>

  8. <script language="VBScript">
  9. Sub ShowDialog
  10.    intReturn = ShowModalDialog("modaldialog.hta")
  11.    textbox.Value = intReturn
  12. End Sub
  13. </script>

  15. <body>
  16. <button onclick="ShowDialog">
  17.   Show Dialog Box</button> <p>
  18. <input type="text" name="textbox">
  19. </body>
  20. </html>
复制代码
作者: 9zhmke    时间: 2019-6-10 21:37
没玩过，不知道你这个return是要把值返回给谁？



欢迎光临 无忧启动论坛 (http://wuyou.net./) Powered by Discuz! X3.3