[VB6] Delay函數，取代難用的Sleep

作者： -
  1. Private Sub Delay(ByVal Sec As Single)
    Dim sgnThisTime As Single, sgnCount As Single
    sgnThisTime = Timer
    Do While sgnCount < Sec
     sgnCount = Timer - sgnThisTime
     DoEvents
    Loop
    End Sub

留言

  1. 匿名2012年6月23日 下午5:04

    我想請問一下...若兩個"動作"同時使用到delay...則其中一個動作就會完全失效...要重新開啟程式...這該如何處理呢@@?
    舉例:
    TIMER1設置執行時間50秒執行時點按鍵A"delay"5秒後點B
    TIMER2設置執行時間48秒執行時點按鍵C"delay"10秒後點D
    則這樣TIMER2的動作就會完全停止(變成永久delay)重新啟動TIMER2也沒效果..必須要重新啟動程式

    回覆刪除
    回覆
    1. knowlet2012年6月24日 晚上10:45

      併入同一個Timer使用倒數的方式並將InterVal設為1000(1秒鐘)
      舉例
      T = 50
      If T <= 0 Then 執行時點按鍵A"delay"5秒後點B
      T = 48
      If T <= 0 Then 執行時點按鍵C"delay"10秒後點D
      這樣試試看

      刪除

張貼留言

本月最夯