使用过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
扩大后的边框并不会在客户区的前景显示(它其实是一个背景，你会发现，此时边框其实已经被
扩大了，由于原来的客户区的凹陷边界已经消逝)，磨砂玻璃的
动机被窗体默许画上去的前景
遮蔽了，所以我们得自己给窗体画个“透明”的前景 。
厄运的是，在RGB调色版中，黑色black (0x00000000)刚好便是ARGB(short for Alpha, Red, Green and Blue)的100%透明(这刚好
可以解释为何用Windows 画图板
打开一个png图片时透明背景会变成纯黑) 。所以，第一个
步骤，我们
可以在窗口的Form_Paint事件(是的，Form_Paint就足够了，不用去子类化窗体 。固然，假如要实现更高级
性能，还是子类化吧…)中给窗口的前景用纯黑(RGB(0,0,0))填充，用的是经典的GDI，重要便是CreateSolidBrush和FillRect两个API工作，代码:
| Dim hBrush As Long, m_Rect As RECT, hBrushOld As Long
hBrush = CreateSolidBrush(RGB(0, 0, 0))
hBrushOld = SelectObject(Me.hdc, hBrush)
GetClientRect Me.hwnd, m_Rect
FillRect Me.hdc, m_Rect, hBrush
SelectObject Me.hdc, hBrushOld
DeleteObject hBrush ‘别忘了删除对象 |
现在再按一次F5，恩….很好!
