Функция DrawAnimatedRects

Declare Function DrawAnimatedRects Lib "User32" (ByVal hWnd As Long, _
    ByVal idAni As Long, _
    lprcFrom As RECT, _
    lprcTo As RECT) As Long

DrawAnimatedRects выводит анимацию заголовка окна, показывая открытие, свертывание или раскрытие окна

hWnd
Описатель окна, который нужно анимировать на экране
idAni
Задает тип анимации. Должен иметь тип IDANI_CAPTION. В этом случае анимация заголовка окна идет с позиции lprcFrom до позиции lprcTo. Данный эффект схож со свертыванием и развертыванием окна
lprcFrom
Структура RECT, определяющая позицию и размер значка или свернутого окна
lprcTo
Структура RECT, определяющая позицию и размер восстановленного окна

Пример

Const IDANI_CAPTION = &H3
Dim rSource As RECT, rDest As RECT, ScreenWidth As Long, ScreenHeight As Long
' получим ширину и высоту экрана
ScreenWidth = Screen.Width / Screen.TwipsPerPixelX
ScreenHeight = Screen.Height / Screen.TwipsPerPixelY
' установим начальный и конечный прямоугольники
SetRect rSource, ScreenWidth, ScreenHeight, ScreenWidth, ScreenHeight
SetRect rDest, 0, 0, 200, 200
' делаем анимацию
DrawAnimatedRects Me.hWnd, IDANI_CAPTION, rSource, rDest
' устанавливаем позицию формы
Me.Move 0, 0, 200 * Screen.TwipsPerPixelX, 200 * Screen.TwipsPerPixelY

Категория

Графика