使用VB6.0在Windows Vista下实现全磨砂玻璃窗口

作者：吴滂

本文欢迎转载，但请标明出处：

http://zxmessenger.spaces.live.com/blog/cns!247B1130377EBEFF!800.entry

本文所以示例代码可以在以下地址下载：

www.mndsoft.com

 

使用过Windows Vista 的用户都会对Vista窗口的磨砂玻璃效果印象深刻，而如果你在Windows Vista 下使用过 Windows Media Player 11 更会发现微软把这种效果扩展至WMP11的底部区域，使得WMP的底部按钮区域成为一条“玻璃带”，如图：

 

 

事实上，Vista窗口的磨砂玻璃效果不仅限于窗体的边框（非客户区域），他可以任意的延伸，甚至铺满整个窗口，下面我们就来看看怎么用的vb6来实现这种扩展。

Vista实现磨砂玻璃效果主要依靠一组叫做 Desktop Window Manager (DWM) 的API来实现，该组API均以dwm打头，存在于dwmapi.dll中（该文件为Vista特有），顾名思义，这些API是专门用来实现Vista窗口的特效的。由于篇幅所限，这里仅介绍和本文关系最密切的两个函数：DwmIsCompositionEnabled 和 DwmExtendFrameIntoClientArea。

第一个函数DwmIsCompositionEnabled是用于判断系统的磨砂玻璃合成效果是否已经开启，因为该效果可以由用户关闭，尽管你可以在用户关闭合成效果的情况下在程序中单独使用合成效果。

 

DwmIsCompositionEnabled的原型为：

HRESULT DwmIsCompositionEnabled( BOOL *pfEnabled )

其中pfEnabled为一个输出参数，告诉后面的程序合成效果是否被打开。

该函数的VB声明为：

Public Declare Function DwmIsCompositionEnabled Lib