按不同显示方式打开窗体_access窗体及access控件

按不同显示方式打开窗体

时间：2004-11-23 21:51 来源：ACCESS中国/Office中国作者：zhengjia… 阅读：次

作    者：zhengjialon
发布日期：2002年11月18日
摘    要：通过Windows API函数AnimateWindow按不同动画显示方式打开窗体.

正    文：

函　　数：AnimateWindow
函数功能：该函数能在显示与隐藏窗口时能产生特殊的效果。有两种类型的动画效果：滚动动画和滑动动画。
函数原型：BOOL AnimateWindow（HWND hWnd，DWORD dwTime，DWORD dwFlags）；

参数：

hWnd：指定产生动画的窗口的句柄。
dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。
dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。

标志描述：

AW_SLIDE：使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。
AW_ACTIVE：激活窗口。在使用了AW_HIDE标志后不要使用这个标志。
AW_BLEND：使用淡出效果。只有当hWnd为顶层窗口的时候才可以使用此标志。
AW_HIDE：隐藏窗口，缺省则显示窗口。
AW_CENTER：若使用了AW_HIDE标志，则使窗口向内重叠；若未使用AW_HIDE标志，则使窗口向外扩展。
AW_HOR_POSITIVE：自左向右显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。
AW_VER_POSITIVE：自顶向下显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。
AW_VER_NEGATIVE：自下向上显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。

返回值：如果函数成功，返回值为非零；如果函数失败，返回值为零。

在下列情况下函数将失败：

　　窗口使用了窗口边界；窗口已经可见仍要显示窗口；窗口已经隐藏仍要隐藏窗口。若想获得更多错误信息，请调用GetLastError函数。

备注：可以将AW_HOR_POSITIVE或AW_HOR_NEGTVE与AW_VER_POSITVE或AW_VER_NEGATIVE组合来激活一个窗口。
　　可能需要在该窗口的窗口过程和它的子窗口的窗口过程中处理WM_PRINT或WM_PRINTCLIENT消息。对话框，控制，及共用控制已处理WM_PRINTCLIENT消息，缺省窗口过程也已处理WM_PRINT消息。

速查：Windows NT：5.0以上版本：Windows：98以上版本；Windows CE：不支持；头文件：Winuser.h；库文件：user32.lib。

举例：

点击浏览该文件

在窗体加载(Load)事件中，加入代码：

Private Sub Form_Load()
Dim rgbColor
　　Dim iMode

rgbColor = Me.主体.BackColor ' 保存原始背景颜色

iMode = 1 ' 设置显示方式

    ' iMode 方式： 1, 3      从左至右
    '              2         从右至左
    '              4,12      从上至下
    '              5,7,13,15 从左上至右下
    '              6,14      从右上至左下
    '              8         从下至上
    '              9,11      从左下至右上
    '              10        从右下至左上
    '              16-31     从内至外

AnimateWindow Me.hWnd, 200, iMode ' 实现

Me.主体.BackColor = rgbColor ' 恢复背景色
Me.Repaint ' 重绘窗体
End Sub

来源于：ACCESS中国

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：经典创意！附加图片浏览器
下一篇：设置默认控件属性及为控件添加绑定标签