Question

以下是我的hta，我一直试图弄清楚如何只用停止和按钮显示TIME。我想要完成的是（1.修复启动子程序，启动hta一切正常，推后＃34; STOP＆＃34;然后是＆＃34; START＆＃34;时钟不连续刷新），（2.使用单个切换按钮暂停/取消暂停时间），（3.显示第二个只是继续计数的TIME），以及（4.设置带有差异消息的msgbox sub以6个特定时间运行，具体时间到达每个时间前1115a，245p，530p和5分钟。）非常感谢您的时间和考虑。

<html>
<head>
<title>ClockwithAlerts</title>
<HTA:APPLICATION 
ID="ClockwithAlerts" 
APPLICATIONNAME="ClockwithAlerts"
MINIMIZEBUTTON="no"
MAXIMIZEBUTTON="no"
SINGLEINSTANCE="no"
SysMenu="no"
BORDER="thin">

<SCRIPT LANGUAGE="VBScript">

Sub Window_onLoad
    window.resizeTo 400,200
    timerID = window.setInterval("RefreshTime", 1000) 'milliseconds
    RefreshTime
End Sub

Dim timerID
Sub RefreshTime
    CurrentTime.InnerHTML = Now
End Sub

Sub OnClickButtonStop()
    window.clearInterval(timerID)
End Sub

Sub ExitProgram
    window.close()
End Sub

</SCRIPT>

</head>

<body>
    <input id="checkButton" type="button" value="EXIT" name="run_button" onClick="ExitProgram" align="right">
<br><br>
    <span id="CurrentTime"></span>
<br><br>
    <input id="Stopbutton" type="button" value="Stop" name="Stopbutton" onclick="OnClickButtonStop">
    <input id="Stopwatch" type="button" value="Start" name="Stopbutton" onclick="refreshtime">
</body>
</html>

Answer 1

您

<input id="Stopwatch" type="button" value="Start" name="Stopbutton" onclick="refreshtime">

只调用一次refreshtime。你需要打电话给

Sub OnClickButtonStart()
    timerID = window.setInterval("RefreshTime", 1000) 'milliseconds
    RefreshTime
End Sub

再次启动计时器。该Sub可以在

中重复使用

Sub Window_onLoad
    window.resizeTo 400,200
    OnClickButtonStart
End Sub

双时间显示，1具有切换暂停，Msgbox Sub为1115a，245p和530p

1 个答案: