作者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