XProfan

Titre de la fenêtre "Hallo seulement la fois... je weiss oui pas si vous es wussten, mais: ..."
CLS
Def AnimateWindow(3) !"user32.dll","AnimateWindow"
'{To show or hide a window without special effects, use ShowWindow.
' Avoid animating a window that has a drop shadow because il produces visually distracting, jerky animations.
Déclarer dwtime&,dwflags&
var AW_ACTIVATE&=$00020000'Activates le window. Do not use this value with AW_HIDE
var AW_BLEND&   =$00080000'fade effect. This flag can être used only si hwnd is a top-level window.
var AW_CENTER&  =$00000010'Makes le window appear to collapse inward si AW_HIDE is used
' or expand outward si le AW_HIDE is not used. The various direction flags have no effect.
var AW_HIDE&    =$00010000'Hides le window. By default, le window is shown.
var AW_HOR_POSITIVE&=$00000001'Animates le window à partir de left to right. This flag can être used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
var AW_HOR_NEGATIVE&=$00000002'Animates le window à partir de right to left. This flag can être used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
'You can combine AW_HOR_POSITIVE or AW_HOR_NEGATIVE with AW_VER_POSITIVE
'or AW_VER_NEGATIVE to animate a window diagonally.
var AW_SLIDE&   =$00040000'Uses slide animation. By default, roll animation is used.
' When using slide or roll animation, you must specify le direction. It can être either
' AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE.
' This flag is ignored when used with AW_CENTER.
var AW_VER_POSITIVE&=$00000004'Animates le window à partir de top to bottom. This flag can être used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
var AW_VER_NEGATIVE&=$00000008'Animates le window à partir de bottom to top. This flag can être used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
'You can combine AW_HOR_POSITIVE or AW_HOR_NEGATIVE with AW_VER_POSITIVE
'or AW_VER_NEGATIVE to animate a window diagonally.
'RESULT (BOOLEAN):
' Si le function succeeds, le return value is nonzero.
' Si le function fails, le return value is zero.
' The function veux fail dans le following situations:
'    Si le window is already visible and you sont trying to show le window.
'    Si le window is already hidden  and you sont trying to hide le window.
'    Si there is no direction specified for le slide or roll animation.
'    When trying to animate a child window with AW_BLEND.
'    Si le thread does not own le window. Note that, dans this cas, AnimateWindow
'    fails but GetLastError returns ERROR_SUCCESS.
' To get extended error information, call le GetLastError function.
' The window procedures for le window and its child windows should handle any
' WM_PRINT or WM_PRINTCLIENT messages. Dialog boxes, controls, and common controls
' already handle WM_PRINTCLIENT. The default window procedure already handles WM_PRINT.
' Si a child window is displayed partially clipped, when il is animated
' il veux have holes where il is clipped.
'} AnimateWindow supports RTL (Run-time library) windows.
usefont "ARIAL",140,90,1,0,0
drawtext 100,100,"1"
waitinput 2000
dwtime&=3000 : dwflags&= 0 \
\'| AW_ACTIVATE& \'not together with aw_hide
| AW_BLEND& \'fade
| AW_CENTER& \'collapse inward / expand outward
| AW_HIDE& \
| AW_HOR_POSITIVE& \
\'| AW_HOR_NEGATIVE&
\'| AW_SLIDE& \
\'| AW_VER_POSITIVE& \
| AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"2":waitinput 2000
dwtime&=3000 : dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 1*AW_BLEND& | 1*AW_CENTER& \
| 0*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"3":waitinput 2000
dwtime&=3000 : dwflags& = 0*AW_ACTIVATE& | 1*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"4":waitinput 2000
dwtime&=3000 : dwflags& = 0*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 0*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"5":waitinput 2000:dwtime&=3000
dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 1*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"6":waitinput 2000:dwtime&=3000
dwflags& = 0*AW_ACTIVATE& | 1*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"7":waitinput 2000:dwtime&=3000
dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 0*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 1*AW_VER_NEGATIVE&
imprimer animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"OK!":waitinput 2000
end