vb题 求解答11. 利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，如图2.
vb题 求解答
11.
利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，如图2.4.10所示。要求倒计时时间以分为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。
当在文本框输入分钟数按回车键时，开始进入倒计时，进度条也随之减少。
赞 罪有应得402 幼苗
共回答了20个问题采纳率：100% 举报
设计界面：
代码如下：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 Su
代码如下：Dim m As IntegerPrivate 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 Su
1年前
14
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
num = int.Parse(textBox1.Text);
1年前1个回答
-
1年前1个回答
你能帮帮他们吗