Функция IsChild

Declare Function IsChild Lib "user32" (ByVal hWndParent As Long, ByVal hWnd As Long) As Long

IsChild определяет, существуют ли родительско-дочерние отношения между двумя окнами. Возможное дочернее окно должно быть прямым потомком возможного родительского окна. Если родительское-дочерние отношения не существуют между этими двумя окнами, функция возвращает 0. Если отношения существуют, функция возвращает ненулевое значение

Параметры

hWndParent

Дескриптор кандидата на окно родителя

hWnd

Дескриптор кандидата на дочернее окно

Пример

' Демонстрация родительско-дочерних отношений
' Кнопка Command1 на окне Form1 является дочерним к
' Form1. Однако, окно Form2 не является дочерним к Form1
Dim retval As Long  ' возвращаемое значение

' Проверим, является ли Command1 дочерним окном к  Form1
retval = IsChild(Form1.hWnd, Command1.hWnd) 
If retval = 0 Then
  Debug.Print "Form1 не является родительским для Command1" 
Else
  Debug.Print "Form1 является родительским для Command1" 
End If

' Проверим, является ли Form2 дочерним окном для Form1
retval = IsChild(Form1.hWnd, Form2.hWnd) 
If retval = 0 Then
  Debug.Print "Form1 не является родительским для Form2" 
Else
  Debug.Print "Form1 является родительским для Form2"
End If

Смотри также

IsWindow, SetParent

Категория

Окна