VBCoding Библиотека кодов Visual Basic 6 Формы и окна Эффекты при закрытии формы

Visual Basic 6
Эффекты при закрытии формы
Функция AnimateWindow дает возможность Вам произвести специальные эффекты при появление или скрытии окон. Имеются три типа анимации: развёртывание, соскальзывание и постепенное появление.
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Const AW_HOR_POSITIVE = &H1 'Анимация окна слева направо.
'Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
Const AW_HOR_NEGATIVE = &H2 'Анимация окна справа налево.
'Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
Const AW_VER_POSITIVE = &H4 'Анимация окна сверху вниз.
'Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
Const AW_VER_NEGATIVE = &H8 'Анимация окна снизу вверх.
'Этот флаг используется совместно с эффектами развёртывания и соскальзывания.
Const AW_CENTER = &H10 'Окно сворачивается внутрь себя если
'установлен флаг AW_HIDE, иначе разворачивается
Const AW_HIDE = &H10000 'Скрывает окно, по умолчанию окно появляется.
Const AW_ACTIVATE = &H20000 'Активизирует окно.
Const AW_SLIDE = &H40000 'Устанавливает эффект соскальзывания.
'По умолчанию эффект развёртывания.
Const AW_BLEND = &H80000 'Эффект постепенного появления.
'Применяется только к окнам верхнего уровня.

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Print "Закрой меня"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Анимация окна
AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
'Выгружаем форму полностью
Set Form1 = Nothing
End Sub

'Оригинальная версия примера расположена на сайте http://rusproject.newmail.ru

 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Формы и окна Эффекты при закрытии формы  
Powered by Exponenta -