| |
Vice26
Posts: 11
Score: 0
Joined: 8/18/2008
Status: offline
|
<script id="clientEventHandlersVBS" language="vbscript">
<!--
timerID=null
klgang=false
sub window_onload()
cmdSeconds.value="<U>G</U>o"
cmdSeconds.accessKey="G"
cmdSeconds.focus
cmdSeconds.title="Apasa ENTER sau fa click pentru a da drumul la ceas."
t1.disabled=true
end sub
Sub Init()
EndTimer
StartTimer
End Sub
Sub StartTimer
t1.value=t1.value+1
timerID=setTimeout("StartTimer",1000,"VbScript")
klgang=true
if (t1.value="60") then
endtimer
cmdSeconds.value="<U>G</U>o"
cmdSeconds.title="Apasa ENTER sau fa click pentru a da drumul la ceas."
t1.disabled=true
end if
end Sub
Sub EndTimer
if klgang then
clearTimeout timerID
klgang = false
reset
end if
End Sub
sub cmdSeconds_onclick
reset
if cmdSeconds.value="<U>G</U>o" then
cmdSeconds.value="St<U>o</U>p"
cmdSeconds.accessKey="o"
cmdSeconds.title="Apasa ENTER sau fa click pentru a opri ceasul."
init
else
cmdSeconds.value="<U>G</U>o"
cmdSeconds.accessKey="G"
cmdSeconds.title="Apasa ENTER sau fa click pentru a da drumul la ceas."
endtimer
t1.disabled=true
end if
end sub
sub reset
t1.disabled=false
t1.value="0"
end sub
-->
</script>
T1= text box
cmdSeconds=command button
|
|
Printable Version
Timer button OK START STOP code - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread