Как сделать, чтоб 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

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