D自集成111+7+38.doc

实验7带有进度条的倒计时程序 一、实验目的： 设计一个带有进度条倒计时的程序，如图所示。要求倒计时时间是以分钟为单位输入，以秒为单位显示，进度条指示的是倒数读秒的剩余时间，即填充块的数目随时间减少。 二、相关属性设置 控件名 标题 属性设置 Label1 Caption： 字体Font：宋体、常规 Command1 Caption：设置 字体Font：宋体、粗体、二号 Command2 Caption：开始 字体Font：宋体、粗体、二号 ProgressBar1 Timer1 三、代码编写 Private Sub Command1_Click() t = InputBox(请以分钟为单位输入倒计时时间) Label1.Caption = t * 60 s = t * 60 ProgressBar1.Max = s ProgressBar1.Min = 0 End Sub Private Sub Command2_Click() Timer1.Enabled = True Timer1.Interval = 1000 ProgressBar1.Visible = True End Sub Private Sub Form_Load() Timer1.Enabled = False ProgressBar1.Visible = False End Sub Private Sub Timer1_Timer() If s = 0 Then Timer1.Enabled = False Label1 = 时间到!!!! Else s = s - 1 ProgressBar1.Value = s Label1 = s End If End Sub 四、代码运行  五、实验感想 本次实验，主要掌握了进度条和定时器的应用。写代码时注意进度条的value属性、Min和Max属性，定时器的Enable属性和Interval属性。定时器产生Timer事件的两个前提条件是：Enabled属性为True；Interval属性为非0.