AnimateWindowAPI,第1张

AnimateWindowAPI,第2张

函数动画窗口。
虽然MSDN页面上说该功能是Win2000的最新功能,但经网友证实,该功能在Win98中已经存在:

私有声明函数animate window Lib“user 32”(ByVal hwnd为Long,ByVal dwTime为Long,ByVal dwFlags为Long)为Long

其中:
hwnd只对Form有效,其他像Picture1都不能产生效果。
dwTime是动画的持续时间,默认为200。
dwFlags可以采用以下值:
aw _ hor _ positive(& h1)& acute;从左向右打开窗口
aw _ hor _ negative(& H2)& acute;从右向左打开窗口
aw _ ver _ positive(& H4)& acute;从上到下打开窗口
aw _ ver _ negative(& H8)& acute;自下而上打开窗口
AW _ CENTER(& H10)& acute;我看不出有什么效果
AW _ HIDE(& h 10000)& acute;你得加上这个常数
aw _ activate(& h 20000)& acute;如果要在卸载表单时使用此功能。该函数打开表单后,默认会失去焦点,除非这个常量
AW _ SLIDE(& h 40000)& acute;已添加。我看不出有什么效果
AW _ BLEND(& h 80000)& acute;褪色效应

最后一个就是我要找的。不幸的是,它只适用于Win2000。下面是窗体淡入的效果,没有Win2000是看不到的:

1.边框样式= 1
Form1。caption = ""
form1。控件框= ""
并在form1上附加一个大小合适的背景图像。

Private Sub Form _ Click()
Unload Me
End Sub
Private Sub Form _ Unload(Cancel As Integer)
animate window hwnd,1000,& h 80000+& h 10000
set Form 1 = nothing
End Sub
animate window函数可以为程序增色,尤其适用于Win2000。

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » AnimateWindowAPI

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情