php html 数字时钟,用PHP制作动态数字时钟 在线等

2010-11-04 回答

添加一个label控件命名为label

添加一个timer控件命名为timer1

设置timer1的interval属性为1000

添加一下代码

dim hour as integer '小时

dim min as integer '分钟

dim sec as integer '秒

private sub form_load()

hour = 0

min = 0

sec = 0

label1.caption = "00 : 00 : 00"

end sub

private sub timer1_timer()

dim strhour as string

dim strmin as string

dim strsec as string

sec = sec + 1

if sec >= 60 then

sec = 0

min = min + 1

if min >= 60 then

min = 0

hour = hour + 1

if hour >= 24 then

hour = 0

end if

end if

end if

if hour < 10 then

strhour = "0" & hour

else

strhour = hour

end if

if min < 10 then

strmin = "0" & min

else

strmin = min

end if

if sec < 10 then

strsec = "0" & sec

else

strsec = sec

end if

label1.caption = strhour & " : " & strmin & " : " & strsec

end sub