VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
窗体特技效果

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

在VB编程中,应用程序窗体的出现和关闭一般都是静态的,不过,我们利用下面的一个API函数Animate Window就可以轻松实现窗体的动态效果。

API函数Animate Window的声明如下:

Private Declare Function AnimateWindow Lib "user32"(ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

其中:hwnd只对form有效;dwtime是动画持续的时间,默认值为200;dwflags是动画方式,可以取&H1、&H2、&H3、&H4、&H5、&H6、&H8、&H9、和&H10共8个值,分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到四周等。

AW_HIDE=&H10000 在窗体卸载时若想使用本函数就得加上此常量。

AW_ACTIVATE=&H20000在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量

AW_SLIDE=&H40000    窗体移动滑出滑入

AW_BLEND=&H80000 淡入淡出效果(适用于WIN2000)

例:从左上角到右下角逐渐显示窗体

Private Sub Form_Load()

AnimateWindow hwnd, 3000,&H5 Forml.Refresh

End Sub


以上程序在PWIN98,VB6.0中文企业版中运行通过。

dwFlags的值可以用OR组合使用,效果更佳




相关文章

相关软件