Функция IsWindow

Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long

IsWindow определяет, относится ли данный дескриптор к окну или нет

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

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

Параметры

hWnd

Дескриптор, чтобы проверить, относится он к окну или нет

Пример

' Определим, относятся ли дескрипторы к окну или нет
Dim hWindow As Long  ' дескриптор к окну (Form1)
Dim hPen As Long  ' дескриптор пера
Dim result As Long  ' результат тестирования

' Инициализируем два дескриптора
hWindow = Form1.hWnd  ' hWindow теперь соответствует дескриптору окна Form1
hPen = GetStockObject(BLACK_PEN)  ' hPen относится к перу
' Проверяем, что hWindow относится к окну
result = IsWindow(hWindow)
If result = 0 Then
  Debug.Print "hWindow не относится к окну"
Else
  Debug.Print "hWindow относится к окну"
End If
' Относится ли hPen к окну
result = IsWindow(hPen)
If result = 0 Then
  Debug.Print "hPen не относится к окну" 
Else
  Debug.Print "hPen относится к окну"  
End If

Смотри также

Категория