Как сделать, чтоб MsgBox, выдав сообщение, сам исчезал через заданное время? - VB

Формулировка задачи:

Как сделать, чтоб MsgBox, выдав сообщение, сам исчезал через заданное время?

Решение задачи: «Как сделать, чтоб MsgBox, выдав сообщение, сам исчезал через заданное время?»

textual
                            Листинг программы 
                        
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Private Sub Form_Load()
    MessageBoxTimeOut Me.hWnd, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", vbInformation + vbOKOnly, 0&, 3000
End Sub

Оцени полезность:

13 голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы