为你的 StatusStrip 添加 Office 2007 样式！

• 下载源代码文件 - 13.6 KB
• 下载演示项目 - 12.1 KB

引言

我是一名年轻的德国学生，请原谅我蹩脚的英语……今年，我安装了微软的新 Office 套件，从第一次使用它开始，我就非常喜欢它漂亮的 GUI，尤其是外观不错的状态栏。由于我从未见过关于如何制作类似背景的教程（我见过一些绘制单个项目的教程），我决定抓住机会自己编写一个。

工作原理

首先，我通过使用这段代码添加了双缓冲功能（为绝对初学者准备）

Public Sub New() 
    Me.DoubleBuffered = True 
    InitializeComponent() 
End Sub

要绘制背景，你需要 On_Paint 事件。唯一要做的事情是在顶部绘制边框和两个 LinearGradient（持续时间 1:2）。如果应该绘制 SizingGrip（Me.SizingGrip = True），你应该这样做。要获取绘制 SizingGrip 的边界，你可以使用这段代码

Dim sgb As Rectangle = Me.SizeGripBounds

Using the Code

你可以简单地将控件添加到工具箱并像使用“常规”StatusStrip 一样使用它。