function boolean AnimateWindow ( long hwnd, long dwtime, long dwflags ) library "user32"
constant long AW_HOR_POSITIVE = 1
constant long AW_HOR_NEGATIVE = 2
constant long AW_VER_POSITIVE = 4
constant long AW_VER_NEGATIVE = 8
constant long AW_CENTER = 16
constant long AW_HIDE = 65536
constant long AW_ACTIVATE = 131072
constant long AW_SLIDE = 262144
constant long AW_BLEND = 524288
用法:
窗口的OPEN事件
long ll_handle
ll_handle = Handle ( this )
AnimateWindow ( ll_handle , 1000, 524288+16)//淡进
窗口的CLOSE事件
////关闭winodws 时需要加上 AW_CENTER 和AW_HIDE
long ll_handle
ll_handle = Handle ( this )
AnimateWindow ( Handle ( This ) , 300, 524288+ 65536 + 16)//淡隐