Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с формой  
     
  Эффекты при закрытии формы  
  Функция 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

 
     
  VBNet online (всего: 52050)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам