使用自定义绘制的标题栏扩展表单上的非客户区域

Question

我在http://www.codeproject.com/Articles/44235/Painting-Vista-s-Aero-NonClientArea-in-VB-NET使用了很棒的教程，使我的表单具有自定义的非客户区控件。它现在看起来像这样：

http://i.imgur.com/5A1GtF7.jpg

我想这样做，以便非客户区一直延伸到TabControl页面开始，因此徽标完全位于非客户区域，并且窗口顶部没有灰色。

Answer 1

在表单代码中找到此行：

dwmMargins.cyTopHeight = nccsp.rect2.Top - nccsp.rect1.Top

现在只需添加您需要的多个像素：

 dwmMargins.cyTopHeight = nccsp.rect2.Top - nccsp.rect1.Top + x

Answer 2

既然你可以使用DLL，我发现了这个：

下载此DLL：http://www.mediafire.com/download/jmvjiu2wty4/rtaGlassEffectsLib.dll

然后创建rtaGlassEffect

的实例

Dim glass As New rtaGlassEffectsLib.rtaGlassEffect

最后将其放在您的表单Load事件处理程序中：

glass.TopBarSize = yourSize
glass.ShowEffect(Me)