MsgBox, созданный с помощью wscript.shell, не будет автоматически закрываться в этом случае

Question

Я пишу файл .mdb в ms-access и с формой внутри.

Я создал подпрограмму для отображения сообщения msgbox, которое автоматически закрывается через несколько секунд.

Sub TimedMsgBox(Message As String)

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

End Sub

Когда появляется всплывающее окно msgbox, я жду, и оно автоматически закрывается, однако, если я переключу фокус на другое приложение, такое как firefox, сообщение просто будет ждать моего внимания и не закроется через выбранные секунды. (Т.е. он не считает секунды.) Когда я вернусь к нему, он будет считать секунды, а затем выйдет.

Как я могу заставить его автоматически исчезать через несколько секунд независимо от того, что я делаю?

Answer 1

Если возможно, я бы предложил создать форму вместо msgbox. Затем вы можете использовать событие On Timer в форме для автоматического закрытия через определенный промежуток времени.

В моей базе данных есть mainform, которая загружается пользователями, но когда эта форма открывается, я также открываю скрытую 'ExitForm'. Эта форма выхода имеет событие таймера, которое закрывает базу данных в определенное время ночи.

Возможно, вы сможете сделать что-то подобное.