WPF技巧大全：[2]Aero Glass 效果

WPF技巧大全：[2]Aero Glass 效果

Aero 桌面体验是从Windows Vista开始集成的一种可视化系统主体效果，包括透明的玻璃效果（Aero Glass）、精致的窗口动画和新窗口颜色。它具有与众不同的直观样式，将轻型透明的窗口外观与强大的图形高级功能结合在一起，让你享受具有视觉冲击力的效果和外观，并可从更快地访问程序中获益。

但是，如何把Aero Glass扩展到应用程序中，而不仅仅是显示在窗口边框中呢？下面一起来学习一下。

打开VS，新建“WPF应用程序”项目，VB.NET/C#均可，VS12起C++也可以。

（本例用的是VB.NET，马上就会更新C#版）

创建一个类AeroGlassHelper，用于协助将Aero Glass扩展到窗口中。

添加以下API声明，其中Margins是一个辅助结构，待会会定义。

创建扩展Aero Glass的函数

创建辅助结构，至此用来扩展的对象已经写完。

下面创建一个继承自Window的类ExtendAeroGlassWindow，

分别写初始化过程、创建WinProc消息处理函数（WPF没有该函数）以及获取或设置窗口各边要扩展Aero Glass的宽度的属性。

Public Class ExtendAeroGlassWindow

Inherits System.Windows.Window

Private Const WM_DWMCOMPOSITIONCHANGED As Integer = &H31E

Protected Overrides Sub OnSourceInitialized(e As EventArgs)

MyBase.OnSourceInitialized(e)

Try

AeroGlassHelper.ExtendGlassFrame(Me, ExtendGlassFrameWidth)

Dim h As New WindowInteropHelper(Me)

Dim hwnd = h.Handle

HwndSource.FromHwnd(hwnd).AddHook(New HwndSourceHook(AddressOf WndProc))

Catch ex As Exception

End Try

End Sub

Private Function WndProc(hwnd As IntPtr, msg As Integer, wParam As IntPtr,

lParam As IntPtr, ByRef handled As Boolean) As IntPtr

If msg = WM_DWMCOMPOSITIONCHANGED Then

Try

AeroGlassHelper.ExtendGlassFrame(Me, ExtendGlassFrameWidth)

handled = True

Catch ex As Exception

End Try

End If

Return IntPtr.Zero

End Function

Protected Friend _ExtendGlassFrameWidth As Thickness = New Thickness(-1)

'''

'''

'''

''' 一个Thickness对象，描述窗体周围框架的粗细。

'''

'''

Public Property ExtendGlassFrameWidth() As Thickness

Get

Return _ExtendGlassFrameWidth

End Get

Set(value As Thickness)

Try

AeroGlassHelper.ExtendGlassFrame(Me, value)

Catch ex As Exception

Exit Property

End Try

_ExtendGlassFrameWidth = value

End Set

End Property

End Class

大功告成！以后XAML定义的窗体就从ExtendAeroGlassWindow而不是Window创建。