Question

VB 求个秒表的程序

编写一个模拟秒表的程序。程序运行时，“计时”按钮可用，“停止”按钮不可用。当单击“计时”按钮时，在标签1中显示开始计时时间，“计时”不可用，而“停止”可用。当单击“停止”按钮时，在标签2中显示结束计时时间，在标签3中显示所累计的时间（秒），此时“计时”可用，“停止”又变为不可用。

Answer 1

private sub command1_click()
select case index
case 1
timer1.enabled=false
case 0
timer1.enabled=true
end select
end sub
private sub timer1_timer()
label1=label1+1
end sub
还要注意的是timer1的interval属性值改为1000，enabled属性改为false
还有不懂的可以问我

追问

不行 他老是说实时错误13 而且也不计时

追答

以上我提供的是建立一个命令按钮数组的做法，你们只需将第一个命令按钮（开始计时）复制粘贴成第二个命令按钮（停止计时），他们共同的名称叫做command1，懂了吗？

Answer 2

楼上的，VB里的Timer不准呀！我试过N次了，还把interval改成了999还是不准!