※ 引述《maxding0430 (momo)》之铭言：
: 各位大大好
: 小弟目前碰到一个问题想来请教一下
: 目前有一个Listbox1以及Button1
: Listbox1有N个项目
: 按Button1后会依序执行Listbox1里的项目
: 每一个项目结束会传ok.ini
: 接到ok.ini后删除ok.ini在执行下一个项目
: 我想要加一个timer去dir(C:log/ok.ini)
: 每一秒去检查有没有收到
: 有收到就next i执行下一个项目
: 目前写法如下
无聊试写的 没编过 不知道能不能跑
File写入跟删除的部分懒得开Visual Studio看方法了 你自己研究看看
有多丢一个Timer进来, 这样应该比较可以看得出有在判断ok.ini存不存在
你可以再把Interval设得极端一点 用逐行跑 效果更佳
读入时记得把两个Timer的Enable都设为False ok设False
Private ok As Boolean
Private Sub Timer1_Tick() Handles Timer1.Tick
If Dir("C:\log\ok.ini") = "ok.ini" Then
'删除ok.ini
ok = True
End If
End Sub
Private Sub Button1_Click() Handles Button1.Click
Timer1.Interval = 1000
Timer1.Enabled = True
Timer2.Interval = 1
Timer2.Enabled = True
ok = True
End Sub
Private Sub DoListBox() Handles Timer2.Tick
If ListBox1.Items.Count = 0 Then
Timer2.Enabled = False
Exit Sub
End If
If ok = True Then
ListBox1.Items.RemoveAt(0)
'建立ok.ini
ok = False
End If
End Sub