UC知道请帮高人看个关于开始和停止计时器的程序错在哪里了？
来源：百度知道 编辑：UC知道 时间：2024/05/25 21:05:51
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
目的是点击命令按钮1开始计时，点击命令按钮2就停止计时，但是运行不起来，请问错在哪里了？
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
目的是点击命令按钮1开始计时，点击命令按钮2就停止计时，但是运行不起来，请问错在哪里了？
新添加的Timer控件的Interval属性是0、Enabled属性是True，要先给Timer的Interval属性赋值或者在属性窗口中修改
Timer1.Interval=1000
没有错,因该是楼上说的那个问题,可以改这样
Private Sub Command1_Click()
if timer1.enabled=false then
command1.caption="停止"
else
command1.caption="开始"
end if
if val(Timer1.Interval)=0 then Timer1.Interval=1000
Timer1.Enabled = not timer1.enabled
End Sub
Private Sub Timer1_Timer()
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
timer1的interval这个属性默认的是0
你没有给他间隔时间哦