新知識點： 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
成品圖
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
