看板 Visual_Basic 關於我們 聯絡資訊
各位大大好 小弟目前碰到一個問題想來請教一下 目前有一個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://www.ptt.cc/bbs/Visual_Basic/M.1459932237.A.A73.html
MOONRAKER: 這樣你何必用timer 用sleep()不就好了04/06 18:07
因爲規定要timer..... ※ 編輯: maxding0430 (223.140.31.106), 04/06/2016 19:10:32
garyl62327: 把timer.enabled =false 改到timer內 exit sub試試 04/06 22:53
garyl62327: 看不太懂你的意思 04/06 22:53
MOONRAKER: 那就把for拆掉,寫到timer裡面 04/07 14:58
MOONRAKER: 不然用timer毫無意義 04/07 14:58
evil2004: Button.Click啟動Timer, Do ListBox放Timer裡,做完Exit? 04/08 23:01
evil2004: 認真講 我真的看不懂你在說啥 04/08 23:11
garyl62327: 我自己都看不懂他的意思了ww整理一下 04/09 20:13
garyl62327: 原po說想每一秒都檢查卻要開開關關timer讓我百思不得 04/09 20:13
garyl62327: 其解 04/09 20:13
garyl62327: 至於他說不會等到ok=true 如果是只button那邊的 有可 04/09 20:17
garyl62327: 能是timer內程式碼還沒跑完 把判斷式丟到timer 做完 04/09 20:17
garyl62327: 離開 等下一次呼叫timer啟動 這有可能是原p o想要的? 04/09 20:17