Функция WindowFromPoint

Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Платформа: Win 95/98, Win NT

WindowFromPoint определяет дескриптор окна,расположенного в определенной точке экрана.(text box, list box, кнопки и другие объекты-тоже окна).В успешном случае функция возвращает дескриптор окна в этой точке.Если в точке нет окна,или произошла ошибка-возвращается 0.

xPoint
Координата x точки при определении окна.
yPoint
Координата y точки при определении окна.

Пример:

' Показываем текст заголовка окно,над которым находится курсор мыши
' Это может быть окно программы или окно элемента управления.
Dim mousepos As POINTAPI  ' координаты курсора мыши
Dim wintext As String, slength As Long  ' текст заголовков окна и его длина
Dim hwnd As Long  ' дескриптор окна,находящегося в точке
Dim retval As Long  ' возвращаемое значение

' Определяем окно под курсором
retval = GetCursorPos(mousepos)  ' получаем координаты курсора
hwnd = WindowFromPoint(mousepos.x, mousepos.y)  ' определяем окно под курсором
If hwnd = 0 Then  ' ошибка или нет окна  в этой точке
  Debug.Print "Здесь ничего нет."
  End
End If

' Показываем заголовок окна
slength = GetWindowTextLength(hwnd)  ' получаем длину заголовка
wintext = Space(slength + 1)  ' создаем место в буфере для приема строки
slength = GetWindowText(hwnd, wintext, slength + 1)  ' получаем текст
wintext = Left(wintext, slength)  ' извлекаем строку из буфера
Debug.Print "Заголовок окна: "; wintext

Категория: Окна
В начало.

Парикмахерские, салоны красоты и косметологии Домодедово инвиво-мед.рф
инвиво-мед.рф