A simple Wait Function
Ur code waits for X seconds without stopping complete VB like most others (incl. Sleep Api)
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Public Function Wait(ByVal TimeToWait As Long) 'Time in seconds Dim EndTime As Long EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Cause u give seconds and GetTickCount uses Milliseconds Do Until GetTickCount > EndTime DoEvents Loop End Function
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine