Question

vb题 求解答

11. 利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，如图2.4.10所示。要求倒计时时间以分为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。　　当在文本框输入分钟数按回车键时，开始进入倒计时，进度条也随之减少。　

Answer 1

设计界面：

代码如下：

Dim m As Integer
Private Sub Command1_Click()
m = Val(Text1.Text) * 60
Timer1.Enabled = True
ProgressBar1.Max = m
ProgressBar1.Value = m
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Label3.FontSize = 12
Label3.Alignment = 2
End Sub
Private Sub Timer1_Timer()
Label3.Caption = "倒计时还剩余：" & m & "秒"
m = m - 1
ProgressBar1.Value = m
If m = 0 Then
Timer1.Enabled = False
Beep
Label3.Caption = "时间到！"
MsgBox "时间到"
End If
End Sub