Использование API Win32

В этом упражнении Вы создадите окно сообщения, используя API Win32 и встроенную функцию Visual Basic MsgBox. > Создание окна сообщения средствами API Win32

1. Запустите Microsoft Visual Basic и создайте новый проект стандартного исполняемого модуля.
2. В меню Project выберите команду Add Module.
3. В разделе General Declarations наберите следующий код: Declare Function MessageBox Lib "user32" Alias "MessageBoxA"(ByVal hwnd As Long, ByVal IpText As String, ByVal IpCaption As String, ByVal wType As Long) As Long
   
   
4. Добавьте новую командную кнопку в форму Form1.
5. В обработчике события Click кнопки Command1 наберите следующий код: MessageBox Me.hwnd, "API MessageBox function", "API", 0
   
   
6. Запустите приложение.
7. Щелкните кнопку Commandl. Функция API Win32 MessageBox будет вызвана непосредственно из кода Visual Basic.
   
   

> Создание окна сообщения средствами Visual Basic

1. Запустите Visual Basic и создайте новый проект стандартного исполняемого модуля.
2. Добавьте командную кнопку в форму Forml.
3. В обработчике события Click кнопки Commandl наберите следующий код: MsgBox "Visual Basic MsgBox function"
   
   
4. В меню Run щелкните команду Start, чтобы запустить программу.
5. Щелкните кнопку Commandl. Обратите внимание на появившееся окно сообщения — на сей раз Visual Basic самостоятельно вызвал функцию MessageBox из библиотеки User32.dll.