VB工程--百例87--删除文件

新知识点： Animation 是“动画模块”的意思 ProgressBar 是“进度条 进度

Option Explicit

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Activate()
Animation1.Open "D:软件文件夹2大型软件VB学习百例百例源文件实例87实例素材FILEDELR.AVI"
'打开文件的路径
Animation1.Play '播放动画 Animation 是“动画模块”的意思
End Sub

Private Sub Timer1_Timer()
Static i As Integer '将变量定义为静态变量
ProgressBar1.Value = i '进度条的值是变量的值 ProgressBar 是“进度条 进度条 ”的意思
i = i + 1 '变量不断加1 因为时间是一秒秒钟的经过的
Label1.Caption = "正在删除文件，剩余" & Str(60 - i) & "秒"
If Str(60 - i) = 0 Then '如果变量的值增加到60s时
End '事件结束
End If
End Sub

成品图

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!