Сообщение WM_CLOSE

Const WM_CLOSE =&H10

Сообщение WM_CLOSE посылают команду окну о закрытии. Некоторые окна, при закрытии выводят диалоговое окно с подтверждением закрытия окна, некоторые закрываются сразу. Поэтому, в зависимости от программы, нет точной гарантии, что WM_CLOSE в действительности закроет окно

Возвращаемое значение

Параметры

wParam

Не используется - установите в 0

lParam

Не используется - установите в 0

Пример

' Пример с закрытием окна
' Пользователь должен ввести название окна
' Для этого поместите на форме текстовое поле txtTitleText
' и кнопку cmdClose
Private Sub cmdClose_Click ()
' Дескриптор к окну,которое нужно закрыть
Dim hWnd As Long  
Dim retval As Long  ' возвращаемое значение
' Получаем описатель окна, заголовок которого
' пользователь ввел в текстовое поле
hWnd = FindWindow(vbNullString, txtTitle.Text)
 If hWnd <> 0 Then
' Пробуем закрыть окно
  retval = SendMessage(hWnd, WM_CLOSE, ByVal 0, ByVal 0)
 Debug.Print "Окно закрылось"
 Else
' Не могу найти это окно
 Debug.Print "Не могу найти окно с заголовком " & txtTitle.Text
End If
End Sub

Смотри также

Категория