Функция GetWindowRect

Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long

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

GetWindowRect читает размер и позицию окна. Эта информация помещена в переменную lpRect. Прямоугольник получает координаты левых верхних и нижних правых углов окна. Функция возвращает 0 в случае ошибки, или 1 в успешном случае.

hwnd
Дескриптор окна для чтения позиции и размера окна.
lpRect
Переменная, которая получает координаты левых верхних и нижних правых углов окна.

Пример:

'  Отобразим ширину и высоту окна Form1
'  ширина и высота могут быть рассчитаны от координат, возвращенных в прямоугольнике.
Dim r As RECT  ' получаем прямоугольник окна
Dim retval As Long  ' возвращаемое значение

retval = GetWindowRect(Form1.hWnd, r)  ' устанавливаем r равным прямоугольнику окна Form1
Debug.Print "Ширина ="; r.Right - r.Left
Debug.Print "Высота ="; r.Bottom - r.Top

Схожие функции: MoveWindow, SetWindowPos
Категория Окна

В начало