Двойной дисплей времени, 1 с Toggle Pause и Msgbox Sub на 1115a, 245p и 530p

Ниже приведена моя hta, что я пытался выяснить, как показывать только ВРЕМЯ с помощью кнопки остановки и выхода. То, что я пытаюсь выполнить, - это (1. фиксация стартовой подпрограммы, начиная с hta, все работает нормально, после того, как я нажимаю «STOP», а затем «START», часы НЕ обновляются постоянно), (2. сделав одну кнопку переключения, чтобы приостановить/unpause the time), (3. отображение второго ВРЕМЯ, которое только продолжает подсчитываться) и (4. установка subgs с помощью сообщений diff для запуска в 6 конкретных случаев, время 1115a, 245p, 530p и 5 минут до каждое время достигнуто.) Большое спасибо за ваше время и внимание.Двойной дисплей времени, 1 с Toggle Pause и Msgbox Sub на 1115a, 245p и 530p

<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>

источник

2015-03-11 Lowell

Один вопрос за один раз, пожалуйста. –

Ваш

<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

источник

2015-03-11 07:46:29

О, отлично, что исправляет одну из моих проблем, большое спасибо !!!! – Lowell

Двойной дисплей времени, 1 с Toggle Pause и Msgbox Sub на 1115a, 245p и 530p

ответ

Смежные вопросы