vb中用了定时器,如果两个过程在同时间运行,会怎么样?该怎么处理?
2个回答
展开全部
代码手动输的,可能会有某些编译错误,自己小修改下就ok了。
需要两个按钮,一个标签。
option
explicit
dim
utimer
as
new
timer
dim
i&
private
sub
utimer_timer()
utimer.interval=1000
i=i+1
end
sub
private
sub
form_load()
command1.caption="开始计时"
command2.caption="停止计时"
lable1.caption="计时:"
&
i
&"s"
end
sub
private
sub
command1_click()
utimer.enable=1
end
sub
private
sub
command2_click()
utimer.enable=0
end
sub
====================
顺便送一个程序给lz参考。
需要两按钮
一标签。
option
explicit
dim
utimer
as
new
timer
private
sub
form_load()
command1.caption="开始计时"
command2.caption="停止计时"
lable1.caption="计时:"&
"
s"
utimer.interval=1000
end
sub
private
sub
command1_click()
utimer.enable=1
end
sub
private
sub
command2_click()
utimer.enable=0
end
sub
private
sub
utimer_timer()
lable1.caption="计时:"
&
time
end
sub
需要两个按钮,一个标签。
option
explicit
dim
utimer
as
new
timer
dim
i&
private
sub
utimer_timer()
utimer.interval=1000
i=i+1
end
sub
private
sub
form_load()
command1.caption="开始计时"
command2.caption="停止计时"
lable1.caption="计时:"
&
i
&"s"
end
sub
private
sub
command1_click()
utimer.enable=1
end
sub
private
sub
command2_click()
utimer.enable=0
end
sub
====================
顺便送一个程序给lz参考。
需要两按钮
一标签。
option
explicit
dim
utimer
as
new
timer
private
sub
form_load()
command1.caption="开始计时"
command2.caption="停止计时"
lable1.caption="计时:"&
"
s"
utimer.interval=1000
end
sub
private
sub
command1_click()
utimer.enable=1
end
sub
private
sub
command2_click()
utimer.enable=0
end
sub
private
sub
utimer_timer()
lable1.caption="计时:"
&
time
end
sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询