| 网站首页 | 新闻 | 新书 | 专家 | 技巧 | 源码作品 | 工具/资源 | 商城 | 风采 | 留言 | 论坛 | 网址 | 承接 | 
您现在的位置: Access/Office中国 >> 技巧 >> Access >> 窗体标准控件 >> 文章正文 用户登录 新用户注册
[图文]按不同显示方式打开窗体         ★★★★
按不同显示方式打开窗体
作者:zhengjia… 文章来源:ACCESS中国/Office中国 点击数: 本日:{$DayHits} 更新时间:2004-11-23 21:51:02
作    者:zhengjialon  
发布日期:2002年11月18日
摘    要:通过Windows API函数AnimateWindow按不同动画显示方式打开窗体.

正    文:

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

参数

  1. hWnd:指定产生动画的窗口的句柄。
  2. dwTime:指明动画持续的时间(以微秒计),完成一个动画的标准时间为200微秒。
  3. 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中国

文章录入:huanghai    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    专 题 栏 目
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    用CELL组件显示Access数
    如何隐藏及再显示鼠标
    如何隐藏及显示任务栏?
    如何恢复ACCESS的默认菜
    隐藏与显示工具条
    如何在报表中每隔N行显示
    网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)