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/)