会做了,但是如何循环呢? text1 输入,label1显示,点击按钮开始,比如text1的值是10,怎样才能让程序10到0然后执行某个功能,text1的值又变成10,再。如此循环
Private Sub Timer1_Timer()
Static i As Integer
i = Text1.Text
i = i - 1
If i < 0 Then
Text1.Text = 10
执行某个功能
Else
Text1.Text = i
End If
End Sub
利用timer控件,timer1.Interval的值,根据需要自己设值