Windows 7 操作系统默认具有一款玻璃效果主题（Aero Glass）。如果选择了该款主题，所有的应用程序标题栏都会处于玻璃透明效果（如下图）。这个功能是由Desktop Window Manager（DWM）服务支持的。[源码下载]

     默认情况下，我们编写的应用程序在Windows 7 中也只有标题栏和窗口框架会具备玻璃效果，其他区域仍是不透明状态（如下图）。如果想将程序整体都改为上图IE 窗口的效果，可以使用DWM API 将玻璃区域进行扩展。

首先，从dwmapi.dll 中调取DwmExtendFrameIntoClientArea 方法。

1. [StructLayout(LayoutKind.Sequential)] 
2. public struct MARGINS 
3. { 
4.     public int cxLeftWidth;       
5.     public int cxRightWidth;      
6.     public int cyTopHeight;       
7.     public int cyBottomHeight;    
8. }; 
9.  
10. [DllImport("DwmApi.dll")] 
11. public static extern int DwmExtendFrameIntoClientArea( 
12.     IntPtr hwnd, 
13.     ref MARGINS pMarInset); 

创建方法ExtendAeroGlass 方法，可将WPF Window窗口的Aero Glass 区域扩展。

1. private void ExtendAeroGlass(Window window) 
2. { 
3.     try 
4.     { 
5.         // 为WPF程序获取窗口句柄 
6.          IntPtr mainWindowPtr = new WindowInteropHelper(window).Handle; 
7.         HwndSource mainWindowSrc = HwndSource.FromHwnd(mainWindowPtr); 
8.         mainWindowSrc.CompositionTarget.BackgroundColor = Colors.Transparent; 
9.  
10.         // 设置Margins 
11.         MARGINS margins = new MARGINS(); 
12.  
13.         // 扩展Aero Glass 
14.         margins.cxLeftWidth = -1; 
15.         margins.cxRightWidth = -1; 
16.         margins.cyTopHeight = -1; 
17.         margins.cyBottomHeight = -1; 
18.  
19.         int hr = DwmExtendFrameIntoClientArea(mainWindowSrc.Handle, ref margins); 
20.         if (hr < 0) 
21.         { 
22.             MessageBox.Show("DwmExtendFrameIntoClientArea Failed"); 
23.         } 
24.     } 
25.     catch (DllNotFoundException) 
26.     { 
27.         Application.Current.MainWindow.Background = Brushes.White; 
28.     } 
29. } 

简单制作一个WPF 界面。

1. <Window x:Class="WpfAeroGlass.MainWindow" 
2.         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
3.         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
4.         Title="MainWindow" Height="350" Width="525"> 
5.     <Grid x:Name="layout"> 
6.         <Button x:Name="btn" Content="Button" Margin="191,66,202,211" /> 
7.         <CheckBox x:Name="checkBox" Content="Extend AeroGlass" 
8.                   Click="CheckBox_Checked" Height="24" Width="121" /> 
9.     </Grid> 
10. </Window> 

补充CheckBox 点击事件，在其中启用ExtendAeroGlass 方法。

1. private void CheckBox_Checked(object sender, RoutedEventArgs e) 
2. { 
3.     if (checkBox.IsChecked.Value) 
4.     { 
5.         this.Background = Brushes.Transparent; 
6.         ExtendAeroGlass(this); 
7.     } 
8.     else 
9.     { 
10.         this.Background = Brushes.White; 
11.     } 
12. } 

演示效果

运行程序后，默认界面状态。

点击"Extend AeroGlass" 选框，界面中<Grid> 也将呈现玻璃效果。

Windows API

     通过Windows API Code Pack 可以对Aero Glass 效果进行开启或关闭。在程序中加入Microsoft.WindowsAPICodePack.Shell 命名空间，调整AeroGlassCompositioinEnabled 完成开/关Aero Glass的效果。

1. GlassWindow.AeroGlassCompositionEnabled = checkBox.IsChecked.Value;