Automatically Create Message Box with Timer
How to create a message box automatically that closes itself after a specific time using VBA.
Here's the complete VBA code:
Private Sub Workbook_Open()
startTimer
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
startTimer
End Sub
Option Explicit
Const PopupDurationSecs As Integer = 5
Sub startTimer()
Application.OnTime Now + TimeValue("00:00:05"), "myShellMessageBox"
End Sub
Sub myShellMessageBox()
Dim Result As Integer
Result = CreateObject("WScript.Shell").PopUp( _
"Keep this workbook open?", PopupDurationSecs, _
"Keep Workbook Open", 4 + 32)
'MsgBox Result
If Result = 6 Then
Exit Sub
ElseIf Result = 7 Then
'ThisWorkbook.Save
Application.Quit
End If
End Sub
For more on this method see the MSDN documentation at http://msdn.microsoft.com/en-us/library/x83z1d9f%28v=VS.85%29.aspx
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «Automatically Create Message Box with Timer», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.