この場合、wscript.shellで作成されたMsgBoxは自動的に閉じません。

Question

ms-accessで.mdbファイルを作成しています。

私は数秒後自動的に閉じるmsgboxを表示するためにサブルーチンを作成しました。メッセージボックスのポップアップ私はFirefoxなど他のアプリケーションに私のフォーカスを変更した場合、私は待って、それが自動的に閉じ、ただし、メッセージはちょうど私の注意を待つことになると選択された秒後に閉じなかった

Sub TimedMsgBox(Message As String) 

CreateObject("wscript.shell").PopUp _ 
     Message & vbCrLf & vbCrLf & _ 
     "This message self-closes in 2 seconds...", 2, "Message" 

End Sub 

（つまり、それは秒を数えていません）。私はそれにフォーカスを戻すと、秒をカウントして終了します。

私が何をしていても、何秒後に自動的に消えるのですか？

Answer 1

私の提案は、msgboxではなくフォームを作成することです。その後、フォームのOn Timerイベントを使用して一定期間後に自動的に閉じることができます。

私のデータベースでは、ユーザーがロードするメインフォームを持っていますが、そのフォームが開くと非表示の「ExitForm」も開きます。この出口フォームには、特定の時刻にデータベースを閉じるタイマーイベントがあります。

同様のことをすることができます。