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

使用VB6.0在Windows Vista下实现全磨砂玻璃窗口 作者：吴滂 本文欢迎转载，但请标明出处： /blog/cns!247B1130377EBEFF!800.entry 本文所以示例代码可以在以下地址下载： 使用过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 dwmapi.dll (ByRef enabledptr As Long) As Long 这里要注意C++里的BOOL类型必须译成vb中的Long而不是Boolean，否则你将得到错误的结果。 DwmExtendFrameIntoClientArea函数则用于将磨砂边框扩展至窗体客户区，使得整个窗体看上就像一张卡片(sheet)。 该函数原型为： HRESULT DwmExtendFrameIntoClientArea(HWND hWnd,const MARGINS *margins) 其中hWnd 为目标窗口句柄，margins为一个MARGINS结构体指针 MARGINS结构体定义为： typedef struct _MARGINS? { int?cxLeftWidth; int?cxRightWidth; int?cyTopHeight; int?cyBottomHeight; } MARGINS, *PMARGINS; 该函数的vb引用为： Public Declare Function DwmExtendFrameIntoClientArea Lib dwmapi.dll (ByVal hwnd As Long, margin As MARGINS) As Long MARGINS的vb形式定义： Public Type MARGINS m_Left As Long m_Right As Long m_Top As Long m_Button As Long End Type 其中MARGINS中的各个成员为需要扩展的边框大小（单位：像素），如果要把磨砂玻璃效果铺满整个边框（本文以此为例），全部成员可设置为-1 知道了这些，我们现在就可以动手了。 我们在窗体的Form_Load事件里写上： Dim mg As MARGINS, en As Long mg.m_Left = -1 mg.m_Button = -1 mg.m_Right = -1 mg.m_Top = -1 DwmIsCompositionEnabled en If en Then DwmExtendFrameIntoClientArea Me.hwnd, mg End If 然后运行（先确保系统使用Aero界面且合成效果被打开），结果发现窗体依然如故。原来，DwmExtendFrameIntoClientArea扩展后的边框并不会在客户区的前景显示（它其实是一个背景，你会发现，此时边框其实已经被扩展了，因为原来的客户区的凹陷边界已经消失），磨砂玻璃的效果被窗体默认画上去的前景覆盖了，所以我们得自己给窗体画个“透明”的前景