API 设计半透明窗体

jmey

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

谢谢

daley

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

taller

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

987654321

做得非常好,学习学习

linpansheng

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

baoshaobo000

谢谢楼主的分享！！

hhzjxss

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

三戒

谢谢楼主分享

fawcqgzxr

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