API 设计半透明窗体

jmey · 发表于 2009-5-3 00:36

win2000以后的操作系统支持半透明窗体，我从网上搜集了相关代码实现了vba窗体半透明效果。

相关API

窗体的动态特效
既然已经提到了Windows 2000，那么在这里就再介
绍一个与窗体有关的API 吧。AnimateWindow 是一个在窗
口打开和关闭时产生动画效果的函数，其中最酷的莫过于
淡入淡出了。函数声明如下：
Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long,
ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Const AW_HOR_POSITIVE = &H1 '从左到右
Const AW_HOR_NEGATIVE = &H2 '从右到左
Const AW_VER_POSITIVE = &H4 '从上到下
Const AW_VER_NEGATIVE = &H8 '从下到上
Const AW_CENTER = &H10 '从中间开始
Const AW_HIDE = &H10000 '卸载时使用
Const AW_ACTIVATE = &H20000 '打开时使用
Const AW_SLIDE = &H40000 '与前四种组合拉出样式
Const AW_BLEND = &H80000 '淡入淡出
可惜我无法在文章中向你演示动态效果，具体的效果如何就要靠你自己尝试了。
要注意列出的9 个常量是可以联合使用的，具体的调用例子如下：
AnimateWindow hwnd, 1000, AW_BLEND + AW_ACTIVATE
hwnd为窗口句柄

[ 本帖最后由 jmey 于 2010-4-15 21:16 编辑 ]

impigie · 发表于 2009-5-3 01:11

谢谢

daley · 发表于 2009-5-3 03:20

不错,收藏下来,感谢分享!!

taller · 发表于 2009-5-3 04:52

谢谢楼主分享，非常不错。
一点可以改进的地方：如果设置了Excel的半透明，退出时没有恢复Excel的状态

987654321 · 发表于 2009-5-3 09:48

做得非常好,学习学习

linpansheng · 发表于 2009-5-3 10:19

学习一下，前段时间我在visual basic API 编程百例中看了API的东西，但因为个人原因和其他原因一直没有对API研究，谢谢楼主分享。

baoshaobo000 · 发表于 2009-5-3 18:33

谢谢楼主的分享！！

hhzjxss · 发表于 2009-5-3 21:40

先占位置，后头下载收藏！

三戒 · 发表于 2009-5-4 08:07

谢谢楼主分享

fawcqgzxr · 发表于 2009-5-4 08:23

不错,收藏下来,学习一下.

		自动登录	找回密码
密码			免费注册

API 设计半透明窗体

评分