Visual Basic 2008在Windows Vista下调用Aero效果

上一次在网上搜索VB.NET怎样判断Vista系统是否开启了Aero效果的时候发现的这个主题

如果制作出来的程序能够应用Vista的Aero效果相信效果一定非常不错

 

 

 

要实现Aero效果，需要调用Vista系统下的dwmapi.dll（Microsoft Desktop Window Manager API）中的DwmIsCompositionEnabled和DwmExtendFrameIntoClientArea两个函数

前者是判断系统中Aero效果是否开启的函数，后者则是用来绘制玻璃效果的函数

 

先在Form1类中添加两个API的声明：

 

Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As Margins) As Integer

 

上面的ByRef pMargin As Margins是一个自定义结构，该结构定义如下：

 

Public Structure Margins Public Left As Integer Public Right As Integer Public Top As Integer Public Bottom As Integer End Structure

 

该结构的Left、Right、Top、Bottom成员和WinForm中的Left、Top所表示的含义不同，是指系统绘制玻璃效果距离窗体边框的大小

 

以上面的图为例

我在Form1类中创建了一个Margins结构的实例，并使Top属性为40（从窗体标题向下绘制40个像素）

 

Dim pMargins As New Margins With {.Top = 40}

 

然后在Form_Load事件中添加判断语句和绘制语句

 

        Dim en As Boolean = False If System.Environment.OSVersion.Version.Major >= 6 Then '如果是Vista系统或以上 DwmIsCompositionEnabled(en) '取得是否开启了Aero效果 If en Then DwmExtendFrameIntoClientArea(Me.Handle, pMargins) Else MessageBox.Show("Desktop Composition is Disabled!") End If Else '非Vista系统上的提示 MessageBox.Show("Please run this on Windows Vista.") End If 

 

然后是设置窗体透明色，

Me.TransparencyKey = Color.FromArgb(250, 250, 1) Me.BackColor = Me.TransparencyKey

 

每个窗体都有一个TranparencyKey属性

这个属性定义了在窗体中什么颜色是被认为是透明的，而这个颜色最好是很少被用到的，所以在这里我定义为(250,250,1)

将TransparencyKey和BackColor属性设置成一样的是因为Aero效果必须在透明的区域中绘制（似乎和Alpha通道有关）

 

正如上面所说的，运行之后窗体除了玻璃效果的那个区域外都会是透明的了

 

 

所以，我们还要在窗体的Paint事件中添加相应的代码，重绘窗体不需要透明的那一部分

 

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint If System.Environment.OSVersion.Version.Major >= 6 Then Dim g As Graphics = e.Graphics Using sBrush = New SolidBrush(SystemColors.Control) '重绘 g.FillRectangle(sBrush, pMargins.Left, pMargins.Top, Me.ClientRectangle.Width - pMargins.Left - pMargins.Right, Me.ClientRectangle.Height - pMargins.Top - pMargins.Bottom) End Using End If End Sub

 

至此为止，我们的工作就全部完成了

 

 

 

感觉怎么样呢？

当然也可以将以上代码封装到一个类中，然后供所有窗体调用