在VB中实现窗体的动态效果
2001-05-26 10:51
204 查看
在VB中实现窗体的动态效果
http://www.tongyi.net 作者:姜卫东、华云 出处:中国电脑教育报 点击:1161
在VB编程中,应用程序窗体的出现和关闭一般都是静态的,不过,我们利用下面的一个API函数AnimateWindow就可以轻松实现窗体的动态效果。
API函数AnimateWindow的声明如下:
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、&&H4、&&H5、&&H6、&&H8、&&H9和&&H10共8 个值,分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到四周等。
AW_HIDE = &&H10000 在窗体卸载时若想使用本函数就得加上此常量
AW_ACTIVATE = &&H20000 在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
AW_SLIDE = &&H40000
AW_BLEND = &&H80000 淡入淡出效果(适用于WIN2000)
下面,我们举一个例子让朋友们熟习AnimateWindow函数的使用。
例:从左上角到右下角逐渐显示窗体
Private Sub Form_Load()
AnimateWindow hwnd, 3000, &&H5
Form1.Refresh
End Sub
以上程序在PWIN98,VB6.0中文企业版中运行通过。
http://www.tongyi.net 作者:姜卫东、华云 出处:中国电脑教育报 点击:1161
在VB编程中,应用程序窗体的出现和关闭一般都是静态的,不过,我们利用下面的一个API函数AnimateWindow就可以轻松实现窗体的动态效果。
API函数AnimateWindow的声明如下:
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、&&H4、&&H5、&&H6、&&H8、&&H9和&&H10共8 个值,分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到四周等。
AW_HIDE = &&H10000 在窗体卸载时若想使用本函数就得加上此常量
AW_ACTIVATE = &&H20000 在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
AW_SLIDE = &&H40000
AW_BLEND = &&H80000 淡入淡出效果(适用于WIN2000)
下面,我们举一个例子让朋友们熟习AnimateWindow函数的使用。
例:从左上角到右下角逐渐显示窗体
Private Sub Form_Load()
AnimateWindow hwnd, 3000, &&H5
Form1.Refresh
End Sub
以上程序在PWIN98,VB6.0中文企业版中运行通过。
相关文章推荐
- 在VB中实现窗体的动态效果
- 在VB中实现窗体的动态效果
- 窗体动态效果的实现
- VB挖空窗体,实现悬浮控件效果
- MFC窗体滑动、缩放、渐变动态效果的实现
- 巧用内置函数+句柄实现:动态显示窗体效果
- vb.net实现类似QQ窗体的浮动效果
- 窗体动态效果的实现
- 窗体动态效果的实现
- 有关vb 在 xp 下实现 窗体的磨砂效果。
- [VB.NET]请问类似QQ窗体靠边自动隐藏的效果如何实现?????
- MFC窗体滑动、缩放、渐变动态效果的实现 .
- 窗体动态效果的实现
- VB.NET 窗体实现拖拽文件
- 教你实现Winform窗体的四边阴影效果
- ViewPager实现加载网络图片,动态添加删除效果
- JQuery页面随滚动条动态加载效果实现
- vue2.0使用动态组件实现tab切换效果(vue-cli)
- 【VS开发】【图像处理】基于灰度世界、完美反射、动态阈值等图像自动白平衡算法的原理、实现及效果
- C++BUILDER中一些实现界面效果的技巧。。不规则窗体等等。。