Office中国论坛/Access中国论坛
标题:
如何实现无边框窗体的动态打开效果?
[打印本页]
作者:
ngw123
时间:
2004-8-20 21:37
标题:
如何实现无边框窗体的动态打开效果?
如何实现无边框窗体的动态打开效果?调用api 函数AnimateWindow可以动态打开有标题栏的窗体,可是无边框的为什么就不行..还有如何使窗体在动态打开的过程中保持原来的背景色,不是黑色?该如何设置.....
API函数AnimateWindow的声明如下:
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
在窗体load事件中:
Private Sub Form_Load()
AnimateWindow hwnd, 3000, &H80000 ''淡入淡出效果
me.Refresh
End Sub
此段代码在有边框窗体中能实现,无边框不行...
[此贴子已经被作者于2004-8-20 13:38:06编辑过]
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3