| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Under Windows 2000 and Windows 98 their is a function called AnimateWindow. \par \par AnimateWindow lets you hide and show windows and specify an animation to occur as this happens. \par \par Place in the General Declarations of a form: \par \par Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, _ \par ByVal dwFlags As Long) As Long \par Private Const AW_HOR_POSITIVE = &O1 ' Animate the window from left to right. This flag can be used with roll or slide animation \par ' It is ignored when used with the AW_CENTER flag. \par Private Const AW_HOR_NEGATIVE = &H2 ' Animate the window from right to left. This flag can be used with roll or slide animation. \par ' It is ignored when used with the AW_CENTER flag. \par Private Const AW_VER_POSITIVE = &H4 ' Animate the window from top to bottom. This flag can be used with roll or slide animation. \par ' It is ignored when used with the AW_CENTER flag. \par Private Const AW_VER_NEGATIVE = &H8 ' Animate the window from bottom to top. This flag can be used with roll or slide animation. \par ' It is ignored when used with the AW_CENTER flag. \par Private Const AW_CENTER = &H10 ' Makes the window appear to collapse inward if the \par ' AW_HIDE flag is used or expand outward if the AW_HIDE flag is not used. \par Private Const AW_HIDE = &H10000 ' Hides the window. By default, the window is shown. \par Private Const AW_ACTIVATE = &H20000 ' Activates the window. Do not use this flag with AW_HIDE. \par Private Const AW_SLIDE = &H40000 ' Uses slide animation. By default, roll animation is used. \par ' This flag is ignored when used with the AW_CENTER flag. \par Private Const AW_BLEND = &H80000 ' Uses a fade effect. This flag can be used only if hwnd is a top-level window. \par \par \par To make a form collapse inward and then disappear use: \par \par AnimateWindow myForm.hwnd, 500, AW_CENTER Or AW_HIDE \par \par To make a form expand outwards and become active use: \par \par AnimateWindow myForm.hwnd, 500, AW_CENTER Or AW_ACTIVATE \par \par For this to work the form must be invisible. \par \par Other effects can be achieved by combining flags, for example to make a form to become visible diagonally use: \par \par AnimateWindow hwnd, 500, AW_HOR_POSITIVE Or AW_VER_POSITIVE \par } |
Animating Windows |
India web developer web development India | India web development company India ecommerce web developer