有没有可以使用VB的时间控件？

时间是一个系统常量，一个字符串，内容是时间。

该控件称为 timer，当 enabled 为 true 时，它将自动连续触发 timer 事件，延迟为 interval 属性的毫秒。

然后在活动过程中，你可以做任何你想做的事。

简单来说，定时器就是一个时间控制，你不能说定时器的值等于2秒，因为定时器等价于时间，只能说定时器跳跃两秒触发事件。

例如： 1.在窗体上添加一个计时器控件，默认名称为 timer1。

2. 将 timer1 的 interval 属性设置为 1000，即每 1000 毫秒（1 秒）触发一次。

3. 在 timer1 的 timer（） 事件中写入以下 **。

private sub timer1_timer()print time

end sub

4.运行程序，表单上每1秒输出一次系统的当前时间。

'OCX control**、frame1、label1、timer1、togglebutton1 各，按 togglebutton1 启动计时器，发送给您。

dim h as integer, m as integer, s as integer

private sub timer1_timer()

s = s + 1

if s >= 60 then

s = 0m = m + 1

if m >= 60 then

m = 0h = h + 1

end if

end if

format(h, "00") &":" & format(m, "00") &":" & format(s, "00")

end sub

private sub togglebutton1_click()

if = true then true

h = 0m = 0

s = 0else

0= false

end if

end sub

private sub usercontrol_initialize()

h = 0m = 0s = 0

end sub

private sub usercontrol_resize()

end sub