动态更改 HTA 窗口属性答案

【问题标题】：Dynamically Change HTA Window Properties动态更改 HTA 窗口属性
【发布时间】：2011-12-20 17:10:42
【问题描述】：

在我的 HTA 中，如果发生错误，我会将其保持打开状态，如果一切顺利，则将其关闭。一开始，我将sysmenu 属性设置为no，因为我不希望用户在完成之前关闭HTA。最后，我希望他们能够点击关闭按钮。这是我输入的内容以尝试实现此目的，但它似乎不起作用？我怀疑我需要做些什么来让 HTA 刷新它的 Windows 属性？

请注意，任何完全重新加载窗口和/或使脚本再次执行的解决方案都是不可接受的

If Not bHoldOpen Then
    Call window.close
Else
    Dim tagHTA
    Set tagHTA = document.getElementsByTagName("hta:application").item(0)
    Call tagHTA.setAttribute("sysmenu","yes")
End If

【问题讨论】：

标签： dom vbscript hta

【解决方案1】：

您不能在运行时更改它，它仅在 HTA: 块中可用，因为它的值用于确定如何最初创建物理窗口。

我认为您可以使用onBeforeUnload 事件并调用cancelBubble 来中止关闭，但我在IE8 中尝试过，但它似乎仍然存在错误； http://support.microsoft.com/kb/946214.

如果您只是在流程完成后取消隐藏“关闭”按钮，用户可能会更容易理解。

【讨论】：

+1，documentation 声明sysMenu 属性是只读的，这意味着它在初始加载后无法更改。