查看文章用VB实现透明窗口2007-08-1618:22使用过WindowsVista的用户都会对Vista窗口的磨砂玻璃效果印象深刻，而如果你在WindowsVista下使用过WindowsMediaPlayer11更会发现微软把这种效果扩展至WMP11的底部区域，使得WMP的底部按钮区域成为一条“玻璃带”，如图:事实上，Vista窗口的磨砂玻璃效果不仅限于窗体的边框(非客户区域)，他可以任意的延伸，甚至铺满整个窗口，下面我们就来看看怎么用的VB6来实现这种扩展。Vista实现磨砂玻璃效果主要依靠一组叫做DesktopWindowManager(DWM)的API来实现，该组API均以dwm打头，存在于dwmapi.dll中(该文件为Vista特有)，顾名思义，这些API是专门用来实现Vista窗口的特效的。由于篇幅所限，这里仅介绍和本文关系最密切的两个函数:DwmIsCompositionEnabled和DwmExtendFrameIntoClientArea。第一个函数DwmIsCompositionEnabled是用于判断系统的磨砂玻璃合成效果是否已经开启，因为该效果可以由用户关闭，尽管你可以在用户关闭合成效果的情况下在程序中单独使用合成效果。DwmIsCompositionEnabled的原型为:HRESULTDwmIsCompositionEnabled(BOOL*pfEnabled)其中pfEnabled为一个输出参数，告诉后面的程序合成效果是否被打开。该函数的VB声明为:PublicDeclareFunctionDwmIsCompositionEnabledLib"dwmapi.dll"(ByRefenabledptrAsLong)AsLong这里要注意C++里的BOOL类型必须译成VB中的Long而不是Boolean，否则你将得到错误的结果。DwmExtendFrameIntoClientArea函数则用于将磨砂边框扩展至窗体客户区，使得整个窗体看上就像一张卡片(sheet)。该函数原型为:HRESULTDwmExtendFrameIntoClientArea(HWNDhWnd,constMARGINS*margins)其中hWnd为目标窗口句柄，margins为一个MARGINS结构体指针MARGINS结构体定义为:typedefstruct_MARGINS{intcxLeftWidth;intcxRightWidth;intcyTopHeight;intcyBottomHeight;}MARGINS,*PMARGINS;该函数的VB引用为:PublicDeclareFunctionDwmExtendFrameIntoClientAreaLib"dwmapi.dll"(ByValhwndAsLong,marginAsMARGINS)AsLongMARGINS的VB形式定义:PublicTypeMARGINSm_LeftAsLongm_RightAsLongm_TopAsLongm_ButtonAsLongEndType其中MARGINS中的各个成员为需要扩展的边框大小(单位:像素)，如果要把磨砂玻璃效果铺满整个边框(本文以此为例)，全部成员可设置为-1知道了这些，我们现在就可以动手了。我们在窗体的Form_Load事件里写上:DimmgAsMARGINS,enAsLongmg.m_Left=-1mg.m_Button=-1mg.m_Right=-1mg.m_Top=-1DwmIsCompositionEnabledenIfenThenDwmExtendFrameIntoClientAreaMe.hwnd,mgEndIf然后运行(先确保系统使用Aero界面且合成效果被打开)，结果发现窗体依然如故。原来，DwmExtendFrameIntoClientArea扩展后的边框并不会在客户区的前景显示(它其实是一个背景，你会发现，此时边框其实已经被扩展了，因为原来的客户区的凹陷边界已经消失)，磨砂玻璃的效果被窗体默认画上去的前景覆盖了，所以我们得自己给窗体画个“透明”的前景。幸运的是，在RGB调色版中，黑色black(0x00000000)刚好就是ARGB(shortforAlpha,Red,GreenandBlue)的100%透明(这刚好可以解释为什么用Windows画图板打开一个png图片时透明背景会变成纯黑)。所以，第一个方法，我们可以在窗口的Form_Paint事件(是的，Form_Paint就足够了，不用去子类化窗体。当然，如果要实现更高级功能，还是子类化吧…)中给窗口的前景用纯黑(RGB(0,0,0))填充，用的是经典的GDI，主要就是CreateSolidBrush和FillRect两个API工作，代码:DimhBrushAsLong,m_RectAsRECT,hBrushOldAsLonghBrush=CreateSolidBrush(RGB(0,0,0))hBrushOld=SelectObject(Me.hdc,hBrush)GetClientRectMe.hwnd,m_RectFillRectMe.hdc,m_Rect,hBrushSelectObjectMe.hdc,hBrushOldDeleteObjecthBrush‘别忘了删除对象现在再按一次F5，恩….很好!效果如下:但是接着问题就来了，当你在窗体上放上几个控件之后会发现，控件的黑色部分(一般就是文字)也带上了磨砂玻璃的“特效”，如图:注意到上面的Text1文字了吗?这种效果可不是我们想要的。怎么办呢?上帝说:要有更好的办法于是，就有了第二种实现方法。其实这个问题的关键...
