Question

怎样用VB编写简易倒计时器

我需要源码哦。。 不能出现负数 很简单的就行 就三个按键 一个开始 一个暂停 一个结束！
进行时 开始按键无效 停止计时 暂停按键无效 最好能判断输入的是否数字的功能
VB我是真的不懂啊 再简单的我也不会啊。 。 所以才来求救。。。。

Answer 1

Dim run As Boolean
Dim a As Integer

Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
a = Val(InputBox("pleas press number"))
run = True

End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = f
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command2.Enabled = f
End Sub

Private Sub Timer1_Timer()
If run Then
a = a - 1
Label1.Caption = a
If a <= 0 Then MsgBox "end"
End If

End Sub

Answer 2

这是基本的计时器操作啊

Answer 3

Timer控键