Программное закрытие MsgBox через указаный интервал времени

Ronin751 Пользователь Сообщений: 924 Регистрация: 10.04.2013	#1 20.12.2013 16:19:50 Доброго времени суток! Заранее прошу простить если подобная тема уже была. Искал на форуме, но не нашел. Скажите возможно ли программно закрыть MsgBox через указаный интервал времени? Спасибо всем!

Станислав Пользователь Сообщений: 86 Регистрация: 24.12.2012 Станислав	#2 20.12.2013 16:42:47 http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=18481 http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=3032

Dima S

Пользователь

Сообщений: 2063 Регистрация: 01.01.1970

20.12.2013 16:49:12

Можно и в гугле поискать)

Код

Function MsgBoxExt(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional ByVal SecondsToWait As Integer)
'Аналог MsgBox с возможностью самовыключения.
'Возвращает код нажатой клавиши или -1, если время ожидания исчерпано.
Dim wshShell
    Set wshShell = CreateObject("WScript.Shell"
    MsgBoxExt = wshShell.PopUp(Prompt, SecondsToWait, Title, Buttons)
End Function
Sub test()
Mg = MsgBoxExt("dff", vbYesNo, , 3)

End Sub

lexey_fan Пользователь Сообщений: 438 Регистрация: 01.01.1970	#4 20.12.2013 16:50:17 http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=53281&PAGEN_1=2 вот тут мною textbox заменялся формой которая исчезала через 5 - 7 сек! Если очень захотеть - можно в космос полететь ;)

Hugo Пользователь Сообщений: 26340 Регистрация: 22.12.2012	#5 20.12.2013 17:04:55 PopUp под VBA работает как попало. Вот у меня сейчас не работает. Т.е. появляется и остаётся.

Ronin751 Пользователь Сообщений: 924 Регистрация: 10.04.2013	#6 20.12.2013 17:08:01 Аналогично. Спасибо всем огромное! Буду создавать форму.

Hugo

Пользователь

Сообщений: 26340 Регистрация: 22.12.2012

20.12.2013 17:27:48

Правильно.
А вот в родной среде всё работает - сохраните код как vbs:

Код

Mg = MsgBoxExt("dff", vbYesNo, "Заголовок", 3)
Msgbox Mg

Function MsgBoxExt(Prompt,  Buttons,  Title,  SecondsToWait)
'Аналог MsgBox с возможностью самовыключения.
'Возвращает код нажатой клавиши или -1, если время ожидания исчерпано.
    MsgBoxExt = CreateObject("WScript.Shell").PopUp(Prompt, SecondsToWait, Title, Buttons)
End Function

Ronin751 Пользователь Сообщений: 924 Регистрация: 10.04.2013	#8 20.12.2013 17:36:04 Спасибо Вам!

Читают тему