作者pinkykk (哇哈哈)
看板Visual_Basic
標題Re: [VB2008 ] timer要如何使用?
時間Sun Mar 27 16:08:45 2011
※ 引述《honestonly (努力增胖的小R)》之銘言:
: 抱歉 因為買的書上 找不到詳細的使用方法
: 但是時間上又很緊急 想請各位高手幫幫忙
: 想定時偵測一個檔案是否存在
: 請問一下要怎麼做?
: 因為外部的程式結束時 會產生一個識別檔
: 而我的主程式 要判斷這識別檔 是否存在
: 進而執行後續的動作
: 謝謝
打開工具箱點選timer元件至開發介面form,
右鍵點擊timer元件,選取屬性項,將Enabled設定為true,
Interval設定為你需要訂時的時間(單位1000為1秒),
雙擊timer元件,填入程式碼:
If Dir$("路徑名稱") = "" Then
'檔案不存在
Else
'檔案存在
End If
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.240.180.210
1F:→ honestonly:謝謝你的回文 我想請問一下 判斷檔案是否存在後 03/27 16:42
2F:→ honestonly:If My.Computer.FileSystem.FileExists("MOST_Motor.ou 03/27 16:43
3F:→ honestonly:t") Then 03/27 16:43
4F:→ honestonly:MsgBox("Optimization has been finished!", MsgBoxSty 03/27 16:43
5F:→ honestonly:le.OkOnly, "Optimization") 03/27 16:43
6F:→ honestonly:Timer1.enable = false 03/27 16:44
7F:→ honestonly:End If 03/27 16:44
8F:→ honestonly:我想試著關閉計時器功能 讓訊息視窗 不會一直跳出來 03/27 16:45
9F:→ honestonly:為什麼還是一直固定時間跳出來? 03/27 16:45
10F:→ pinkykk:把Timer1.enable=false拿到msgbox上面試試 03/27 16:52
11F:→ pinkykk:一進入Timer_Tick事件就先關掉timer吧 03/27 16:54
12F:→ pinkykk:不然程式會等待你Msgbox回應後才關閉timer 03/27 16:55
13F:→ honestonly:可以了:) 謝謝!! 03/27 17:04
14F:→ pinkykk:^^ 03/27 17:33