Animer un Form

' https://msdn.microsoft.com/fr-fr/library/windows/desktop/ms632669%28v=vs.85%29.aspx
'
dim AW_ACTIVATE : AW_ACTIVATE=hex("20000")      :' rend le Form actif
dim AW_SLIDE : AW_SLIDE=hex("40000")            :' transforme l'effet de DEROULEMENT en effet de GLISSEMENT
dim AW_BLEND : AW_BLEND=hex("80000")            :' affichage progressif, 'mélangé' avec l'arrière plan
dim AW_CENTER : AW_CENTER=hex("10")             :' affichage progressif, du centre vers l'extérieur
dim AW_HOR_POSITIVE : AW_HOR_POSITIVE=hex("1")  :' affichage progressif de déroulement, de gauche à droite
dim AW_HOR_NEGATIVE : AW_HOR_NEGATIVE=hex("2")  :' affichage progressif de déroulement, de droite à gauche
dim AW_VER_POSITIVE : AW_VER_POSITIVE=hex("4")  :' affichage progressif, du haut vers le bas
dim AW_VER_NEGATIVE : AW_VER_NEGATIVE=hex("8")  :' affichage progressif, du bas vers le haut
'
dim frm%, tim%, param%

' note:
' AW_HOR_POSITIVE,AW_HOR_NEGATIVE,AW_VER_POSITIVE,AW_VER_NEGATIVE : ces 'flags'sont ignorés s'ils sont utilisés avec AW_CENTER ou AW_BLEND

top 0,320 : left 0,240
hide 0
'
form 1 : top 1,320 : left 1,850

dll_on "user32"


pause 500

frm%=1
tim%=1000
param%=AW_VER_NEGATIVE
'
animate_hide_form(frm%,tim%,param%)


pause 500

frm%=0
tim%=1000
param%=AW_ACTIVATE+AW_VER_NEGATIVE+AW_HOR_POSITIVE
'
animate_show_form(frm%,tim%,param%)


dll_off

END
sub animate_hide_form(frm%,tim%,param%)
 dim_local ret%
   ret%=dll_call3("AnimateWindow",handle(frm%),tim%,bin_or(65536,param%))
   hide frm%
end_sub

sub animate_show_form(frm%,tim%,param%)
 dim_local ret%
   ret%=dll_call3("AnimateWindow",handle(frm%),tim%,param%)
   show frm%
end_sub