Code to pause for specific time.
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 222   1
URL.หัวข้อ / URL
Code to pause for specific time.

ผมอ่านเจอที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=39609 
 
เขาให้โค้ดสำหรับหยุดเมื่อวิ่งไปถึงบันทัดใดๆ เป็นเวลาที่กำหนด 
 
ผมเข้าไปอ่าน และเห็นว่าน่าสนใจดีจึงนำเอามาฝากไว้ให้ที่นี่ด้วยครับ 
 
ผมไม่ได้เขียนเองนะครับ 
 
โดย ghudson ซึ่งได้ปรับจากของคุณ Oldsoftboss  
 
Public Function Pause(NumberOfSeconds As Variant) 
On Error GoTo Err_Pause 
     
    Dim PauseTime As Variant, Start As Variant 
     
    PauseTime = NumberOfSeconds 
    Start = Timer 
    Do While Timer < Start + PauseTime 
    DoEvents 
    Loop 
     
Exit_Pause: 
    Exit Function 
     
Err_Pause: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume Exit_Pause 
     
End Function 
 
เวลาใชก็ให้ใส่จำนวนเวลาเป็นวินาที 
 
Pause (5)  
 
ส่วนคุณ Travis ได้แนะนำ API ดังนี้ 
 
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
 
เวลานำไปใช้ 
 
Sleep 5000 '1000 = 1 Second 
 
 
 
 
 

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06632
   
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0524s