Функция EnableWindow

Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

EnableWindow включает или блокирует окно. Если окно заблокировано, оно не может получить фокус и игнорирует любой предпринятый ввод. Некоторые окна, типа кнопок и других элементов управления, будут недоступными, когда заблокированы.

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

Функция возвращает 0, если окно доступно или ненулевое значение, если окно заблокировано.

Параметры

hwnd

Описатель окна

fEnable

Если 0, окно будет заблокировано. Если ненулевое, окно будет доступно

Пример

' Изменим состояние окна Command1. Если окно 
' заблокировано - делаем доступным; если недоступно - отключим
Dim wasenabled As Long  ' состояние окна Command1(доступно или нет)
Dim retval As Long   ' возвращаемое значение

' узнаем состояние окна Command1(доступно или нет)
wasenabled = IsWindowEnabled(Command1.hWnd)
If wasenabled = 0 Then  ' если не доступно, делаем доступным
  retval = EnableWindow(Command1.hWnd, 1)
Else  ' если доступно-блокируем
  retval = EnableWindow(Command1.hWnd, 0)
End If

Смотри также

IsWindowEnabled

Категория

Окна

Реклама