窗体的透明效果.docx
《窗体的透明效果.docx》由会员分享，可在线阅读，更多相关《窗体的透明效果.docx（8页珍藏版）》请在冰点文库上搜索。
窗体的透明效果
查看文章
用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）AsLong
MARGINS的VB形式定义:
PublicTypeMARGINS
m_LeftAsLong
m_RightAsLong
m_TopAsLong
m_ButtonAsLong
EndType
其中MARGINS中的各个成员为需要扩展的边框大小（单位:
像素），如果要把磨砂玻璃效果铺满整个边框（本文以此为例），全部成员可设置为-1
知道了这些，我们现在就可以动手了。
我们在窗体的Form_Load事件里写上:
DimmgAsMARGINS,enAsLong
mg.m_Left=-1
mg.m_Button=-1
mg.m_Right=-1
mg.m_Top=-1
DwmIsCompositionEnableden
IfenThen
DwmExtendFrameIntoClientAreaMe.hwnd,mg
EndIf
然后运行（先确保系统使用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,hBrushOldAsLong
hBrush=CreateSolidBrush（RGB（0,0,0））
hBrushOld=SelectObject（Me.hdc,hBrush）
GetClientRectMe.hwnd,m_Rect
FillRectMe.hdc,m_Rect,hBrush
SelectObjectMe.hdc,hBrushOld
DeleteObjecthBrush‘别忘了删除对象
现在再按一次F5，恩….很好!
效果如下:
但是接着问题就来了，当你在窗体上放上几个控件之后会发现，控件的黑色部分（一般就是文字）也带上了磨砂玻璃的“特效”，如图:
注意到上面的Text1文字了吗?
这种效果可不是我们想要的。
怎么办呢?
上帝说:
要有更好的办法
于是，就有了第二种实现方法。
其实这个问题的关键是画出透明的客户区，那么，别忘了，还有一个API可以做成此事，记得.NET里面那些控件和窗口有的有个TransparentKey属性么?
没错了，就是用它——SetLayeredWindowAttributes
SetLayeredWindowAttributes可以提供这样的一个功能:
给一个窗口设定一个透明色，然后窗口显示的时候指定颜色的区域将变成透明。
这样，只要我们给窗口指定一种没有用到的颜色（反正不是黑色就行，这里我用RGB（255,255,1）），就可以“画”出“透明”的区域了。
我们在使用之前要先对SetLayeredWindowAttributes做做手脚，将其声明为:
PublicDeclareFunctionSetLayeredWindowAttributesByColorLib"user32"Alias"SetLayeredWindowAttributes"（ByValhwndAsLong,ByValcreyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong）AsLong
为什么要这么干呢?
留意函数第二个参数，本来有人将其声明为Byte类型（用于窗体半透明时没有问题），但是这里要传一个RGB值，所以要改成Long
代码如下，相关的API和常量不再敷述，声明和值请读者自行补齐
Form_Load事件:
（先声明m_transparencyKey全局变量，Long类型）
m_transparencyKey=RGB（255,255,1）‘多少没所谓
SetWindowLongMe.hwnd,GWL_EXSTYLE,GetWindowLong（Me.hwnd,GWL_EXSTYLE）OrWS_EX_LAYERED
SetLayeredWindowAttributesByColorMe.hwnd,m_transparencyKey,0,LWA_COLORKEY
DimmgAsMARGINS,enAsLong
mg.m_Left=-1
mg.m_Button=-1
mg.m_Right=-1
mg.m_Top=-1
MsgBox"1"
DwmIsCompositionEnableden
IfenThen
DwmExtendFrameIntoClientAreaMe.hwnd,mg
EndIf
再在Form_Paint事件中画图:
Form_Paint代码:
DimhBrushAsLong,m_RectAsRECT,hBrushOldAsLong
hBrush=CreateSolidBrush（m_transparencyKey）
hBrushOld=SelectObject（Me.hdc,hBrush）
GetClientRectMe.hwnd,m_Rect
FillRectMe.hdc,m_Rect,hBrush
SelectObjectMe.hdc,hBrushOld
DeleteObjecthBrush
再按F5，效果嘛……
顺便提一下，此代码在WindowsVista以下版本，2000及以上Windows版本运行时会产生一个很有趣的效果（除控件外窗体客户区背景完全透明!
），如图:
升级会员 