各位大哥，我刚开始学习VB。想做一个倒计时器，用计时器怎么写？

望指教

用timer控件就可以，把timer的时间动作时间设为1000就可以，这样它每一秒动作一次。然后再秒每次加一，当秒到60时分加一，分到60时小时加一就可以了。你这样是要做倒计时器。那么每60秒分减一，每60分小时减一就可以了。

首先，谢谢楼上的大哥。这个原理我是知道的。首先定义一个变量，然后把这个变量放到timer里每一秒减一就可以了。可我不知道该怎么写代码，一写就出错。
麻烦你演示一下，比如倒计时10秒。
再次感谢。。。。

Dim i As Integer

Private Sub Form_Load()
i = 10
End Sub

Private Sub Timer1_Timer()
i = i - 1
If i = 0 Then
MsgBox "Time is over!", vbExclamation
End If
End Sub

在这前要把Timer的interval属性设置为1000，表示每1秒运行1次Timer里的代码

大家看看这样是不是太繁了？

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1.Text = 10
Command1.Caption = "倒计时开始"
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Text1.Text = 10
Me.Caption = "时间到！"
Timer1.Enabled = False
Else
Text1.Text = Val(Text1.Text) - 1
End If
End Sub

终于研究清了，谢谢大家呀。

可是4楼那位大哥写的msgbox会在被点确定后计时器还会计时不会停的。

尽管如此，却解开了我的困惑。非常感谢呀~~~

呵呵~~

下面开始做计算器，最简单的。

要是有问题还请大家多多指教呀。

leno2的代码里你在msgbox 后加一句Timer1.Enabled = false就行了,继续努力哈

恩,不错不错.改了以后效果就对了.