日韩久久久精品,亚洲精品久久久久久久久久久,亚洲欧美一区二区三区国产精品 ,一区二区福利

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

系統 2195 0

新知識點: 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

VB工程--百例87--刪除文件 成品圖

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


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 年辖:市辖区| 洮南市| 安康市| 阳泉市| 礼泉县| 保德县| 连山| 色达县| 德保县| 祁东县| 沧州市| 普洱| 成武县| 盐池县| 建始县| 清新县| 聂拉木县| 扬中市| 沂水县| 南岸区| 马关县| 大姚县| 卓尼县| 西宁市| 会宁县| 麻阳| 抚宁县| 甘泉县| 红河县| 衡东县| 富锦市| 承德市| 永仁县| 社旗县| 双城市| 湟源县| 东海县| 焉耆| 沐川县| 莱芜市| 云林县|