作者maxding0430 (momo)
看板Visual_Basic
标题[.NET] timer执行问题
时间Wed Apr 6 16:43:55 2016
各位大大好
小弟目前碰到一个问题想来请教一下
目前有一个Listbox1以及Button1
Listbox1有N个项目
按Button1後会依序执行Listbox1里的项目
每一个项目结束会传ok.ini
接到ok.ini後删除ok.ini在执行下一个项目
我想要加一个timer去dir(C:log/ok.ini)
每一秒去检查有没有收到
有收到就next i执行下一个项目
目前写法如下
Private ok As Boolean
timer内:
Dim MyFile As String
MyFile = Dir("C:\log\ok.ini")
If MyFile = "ok.ini" Then
ok = True
End If
If MyFile = "" Then
ok = False
End If
butter内:
Select Case s
......
......
......
End Select
Timer1.Enabled = True
If ok = True Then
Timer1.Enabled = False
My.Computer.FileSystem.DeleteFile("C:\log\ok.ini")
End If
Next i
目前不会等到ok=True才做下一项
而是连续做下去
请问要怎麽改呢?
谢谢各位
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.140.31.106
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1459932237.A.A73.html
1F：→ MOONRAKER: 这样你何必用timer 用sleep()不就好了04/06 18:07
因爲规定要timer.....
※ 编辑: maxding0430 (223.140.31.106), 04/06/2016 19:10:32
2F：推 garyl62327: 把timer.enabled =false 改到timer内 exit sub试试 04/06 22:53
3F：→ garyl62327: 看不太懂你的意思 04/06 22:53
4F：→ MOONRAKER: 那就把for拆掉，写到timer里面 04/07 14:58
5F：→ MOONRAKER: 不然用timer毫无意义 04/07 14:58
6F：推 evil2004: Button.Click启动Timer, Do ListBox放Timer里,做完Exit? 04/08 23:01
7F：→ evil2004: 认真讲 我真的看不懂你在说啥 04/08 23:11
8F：推 garyl62327: 我自己都看不懂他的意思了ww整理一下 04/09 20:13
9F：→ garyl62327: 原po说想每一秒都检查却要开开关关timer让我百思不得 04/09 20:13
10F：→ garyl62327: 其解 04/09 20:13
11F：推 garyl62327: 至於他说不会等到ok=true 如果是只button那边的 有可 04/09 20:17
12F：→ garyl62327: 能是timer内程式码还没跑完 把判断式丢到timer 做完 04/09 20:17
13F：→ garyl62327: 离开 等下一次呼叫timer启动 这有可能是原p o想要的? 04/09 20:17