Visual Basic: Статьи

Автор статьи: Беседин Игорь

Как вызвать MsgBox с возможностью обрабатывать события формы, не закрывая его?

     Идея следующего кода в том, чтобы вызвать API-функцию MessageBox без привязки к форме, т.е. с hWnd=0:

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Form_Load()
Me.Show
MessageBox 0, "Данный пример демонстрирует возможность вывода на экран MsgBox", "Пример", 0
End Sub

    Следует иметь в виду, что при полном закрытии программы этот MessageBox останется на экране.

 При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru