Функция GetWindowRect

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

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

hwnd

Дескриптор окна для чтения позиции и размера окна

lpRect

Переменная, которая получает координаты левых верхних и нижних правых углов окна

Пример

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

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

Смотри также

MoveWindow, SetWindowPos

Категория

Окна