■ Sleep |
指定した時間、処理を中断します | |
中断する時間はミリ秒で指定します | |
デモ業務を作成するときに、「処理中です...しばらくお待ちください」などのメッセージを表示し、サーバへのアクセスに時間がかかっているように見せるのに有効な方法です | |
サンプルソースを、メッセージフォームの Form_Activate にコピーして動かしてみてください DoEvents を使用しないと、フォームがうまく表示されません (試してみれば分かります) |
'------------------------------------------------------------------------------ ' 処理中断(宣言) '------------------------------------------------------------------------------ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' 3 秒間、処理を中断 Sleep 3000 |
サンプルソース : 表示後、3秒でフォームを閉じる
' OS に制御を戻す DoEvents ' 3 秒間、処理を中断 Sleep 3000 ' フォームを閉じる Unload Me |