仪器社区

VB 如何让计时器重新计时

fsshichuang123 2010-06-12

Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End S... Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End Sub

全部评论

vans来

Private Sub Command2_Click()
Timer1.Enabled = False
Timer start
a=0'这里加入这句就可以了
End Sub

4 0 2010-06-13 0条评论回复

查水表的路过

啊沙发沙发按时发放萨芬

5 0 2010-06-13 0条评论回复

吃出身材

在通用里声明a，或是在timer里用static来声明静态变量a
static a as integer

3 0 2016-12-13 0条评论回复

冰旭冰旭冰

Private Sub Timer1_Timer()
if flag=1 then
a=0
end if

a = a + 1
Text1 = a
End Sub

在通用声明处写 dim flag

再添个按钮，click里编写 flag=1 此后当点这个按钮a的值就从0开始了，也就是重新开始计时了

9 0 2010-06-13 0条评论回复

您可能感兴趣的社区主题

加载中...