上一次在网上搜索VB.NET怎样判断Vista系统是否开启了Aero效果的时候发现的这个主题
如果制作出来的程序能够应用Vista的Aero效果相信效果一定非常不错
要实现Aero效果,需要调用Vista系统下的dwmapi.dll(Microsoft Desktop Window Manager API)中的DwmIsCompositionEnabled和DwmExtendFrameIntoClientArea两个函数
前者是判断系统中Aero效果是否开启的函数,后者则是用来绘制玻璃效果的函数
先在Form1类中添加两个API的声明:
上面的ByRef pMargin As Margins是一个自定义结构,该结构定义如下:
该结构的Left、Right、Top、Bottom成员和WinForm中的Left、Top所表示的含义不同,是指系统绘制玻璃效果距离窗体边框的大小
以上面的图为例
我在Form1类中创建了一个Margins结构的实例,并使Top属性为40(从窗体标题向下绘制40个像素)
然后在Form_Load事件中添加判断语句和绘制语句
然后是设置窗体透明色,
每个窗体都有一个TranparencyKey属性
这个属性定义了在窗体中什么颜色是被认为是透明的,而这个颜色最好是很少被用到的,所以在这里我定义为(250,250,1)
将TransparencyKey和BackColor属性设置成一样的是因为Aero效果必须在透明的区域中绘制(似乎和Alpha通道有关)
正如上面所说的,运行之后窗体除了玻璃效果的那个区域外都会是透明的了
所以,我们还要在窗体的Paint事件中添加相应的代码,重绘窗体不需要透明的那一部分
至此为止,我们的工作就全部完成了
感觉怎么样呢?
当然也可以将以上代码封装到一个类中,然后供所有窗体调用