Закрытие формы при помощи API
|
|
Среда, 25 Июля 2018 г. 12:46
+ в цитатник
Закрыть форму можно двумя способами.
1. Нажать на кнопку с "Х" в меню формы
2. Выполнить команду VBA по закрытию формы
При закрытии формы последовательно происходят два события
Unload и
Close. Событие
Unload имеет параметр
Cancel типа
Integer. Если в процессе выполнения кода, расположенного в секции
Private Sub Form_Unload(Cancel As Integer) присвоить переменной
Cancel значение
True, то процедура закрытия формы будет прервана. Если же оставить переменной
Cancel значение
False, то закрытие формы будет продолжено.
Но можно закрыть форму и при помощи API. Вот так
'Разместите на форме CommandButton и вставьте следующий код:
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command_Click()
DestroyWindow Me.hwnd
End Sub
При этом события
Unload не происходит, а сразу выполняется событие
Close. Что думаете о таком способе закрытия формы? И на сколько он корректен?
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
http://www.sql.ru/forum/1299549/zakrytie-formy-pri-pomoshhi-api
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-