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