スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

自作wait関数

関連キーワード:sleep,ミリ秒

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub test()
Call mySleep(1000)
End Sub

'-- msミリ秒ウェイとする --
Sub mySleep(ms As Long)
Dim tm As Long
tm = GetTickCount() + ms
Do While GetTickCount() < tm
DoEvents
Debug.Print GetTickCount
Loop
End Sub
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。