Question

我需要一些快速问题的帮助。我有一个HTA应用程序，这是我正在制作的游戏的菜单，这是问题，我有一个退出按钮，但当你点击它，它只是关闭程序，但我想要的是，当你点击退出按钮时，弹出一个VBS对话框并询问“你确定要退出游戏吗？”，有是或没有按钮，任何人都可以帮助我吗？

谢谢：D

Answer 1

退出按钮调用的过程如下所示：

Sub ExitHTA
  answer = MsgBox("Are you sure?", vbYesNo)
  If answer = vbYes Then self.close()
End Sub

如果需要，可以将应用程序名称作为消息框标题，如下所示：

<html>
<title>My Game</title>

<HTA:APPLICATION ID="oHTA"
  APPLICATIONNAME="My Game"
  ...
>

<script language="VBScript">
  ...

  Sub ExitHTA
    answer = MsgBox("Are you sure?", vbYesNo, oHTA.ApplicationName)
    If answer = vbYes Then self.close()
  End Sub
</script>

<body>
...
<input type="button" id="exitbtn" onClick="vbscript:ExitHTA" value="Exit">
...
</body>

游戏退出菜单

1 个答案: