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

1、打开VS，新建“WPF应用程序”项目，V幞洼踉残B.NET/C#均可，VS12起C++也可以。（本例用的是VB.NET，马上就会更新C#版）

4、创建扩展Aero Glass的函数

6、下面创建一个继承自Win蟠校盯昂dow的类ExtendAeroGlassWindow，分别写初始化过程、创建Win霸烹钟爷Proc消息处理函数（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) ''' <summary> ''' 获取或设置窗口各边要扩展Aero Glass的宽度。 ''' </summary> ''' <value></value> ''' <returns> ''' 一个Thickness对象，描述窗体周围框架的粗细。 ''' </returns> ''' <remarks></remarks> 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

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