| |
▼とき さん：
こんにちは。
一応こちらの内容はAccessでも使う場合がありますので入れておきます。
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("[はい] をクリックすると、ﾌﾟﾛｸﾞﾗﾑの実行が 5 秒間中断されます。", 4)) = vbYes Then
PauseTime = 5 ' 中断時間を設定します。
Start = Timer ' 中断の開始時刻を設定します。
Do While Timer < Start + PauseTime
DoEvents ' 他のプロセスに制御を渡します。
Loop
Finish = Timer ' 中断の終了時刻を設定します。
TotalTime = Finish - Start ' 実際の中断時間を計算します。
msgform.Show
Else
End
End If
この内容はAccess、ExcelともにTimer関数のHelpサンプル例として
ありますのでご確認下さい。
定期的にメッセージボックス表示(モーダルと同じため)は出来なさそうなので
フォーム作って表示するなどがいいかも知れません。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
