VB.NET状态栏控件上添加任意控件

微软提供的标准控件总是很简单，.NET也很好地继承了微软的这一“优良传统”。近日我因编程的需要，需要在状态栏做一个进度条，查看了Statusbar中各个Panel对象提供的所有功能，都没有直接将进度条控件放在面板中的方法，看了MSDN中的描述：在DrawItem事件中若要显示 StatusBarPanel（显示进度栏），则可以使用此事件在面板上执行进度栏的描述操作。如果什么都要我自己画出来的话，我还要控件干什么。当时我被迫自己用了二三十行代码摸拟了一个进度条，可怜啊！事后我冥思苦想了很久，终于发现微软其实是已经将任意的控件放在状态栏的方法提供了给我，只不过我没有觉悟而已，下面小子将以这一方法介绍给大家。

　　这个示例是将一个按钮放在状态栏的第一个面板上，第二个面板显示按钮点击时鼠标的屏幕坐标。首先在窗体放入下表中的控件并按之设置各控件属性

控件类型	属性	设置值
Panel	Name	Panel1
	Dock	Bottom
StatusBar	Name	StatusBar1
	Dock	Fill
	Panels	1、加入一个Name为stabutton的面板将其Style设为OwnerDraw。 2、加入一个Name为staStatus的面板，将其Style设为Text，AutoSize设为Spring,Text设为“状态栏上放置控件”。
Button	Name	Button1

　　注：StatusBar1、Button1均需为Panel1的子控件，具体做法是先画出Panel1,然后选定它，再在其上画出StatusBar1和Button1，再设置StatusBar1和Button1的相应属性，这样一来StatusBar1和Button1就会随Panel的移动而移动了（这是日后不会导致窗体上因控件过多而出现混乱的较好方法）。

　　窗体的代码中加入如下代码：

Private Sub StatusBar1_DrawItem _ (ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) _ Handles StatusBar1.DrawItem 　If sbdevent.Panel Is stabutton Then 　‘此处是关键，一定要根据Statusbar控件中相应面板的调整大小时， 　‘将放置在该面板上用户放置的控件（此处是Button1）调整为面板的尺寸。 　‘,在sbdevent.Bounds提供的面板大小中使用的坐标系统原点是在StatusBar1的左上角， 　‘而因为Button1.Bounds使用的坐标系统的原点都是在Panel1的左上角，而StatusBar1和Button1的父对象 　‘同为Panel1，所以只需将sbdevent.Bounds的X及Y坐标加上StatusBar1.Location的X和Y做一个平移 　‘就可以得到Button1所应处的正确位置。 　　Button1.Bounds = New Rectangle(sbdevent.Bounds.X + StatusBar1.Location.X, _ 　　　sbdevent.Bounds.Y + StatusBar1.Location.Y, _ 　　　sbdevent.Bounds.Width, _ 　　　sbdevent.Bounds.Height) 　End If End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 　StatusBar1.Panels(1).Text = "你点击了按钮,鼠标位置为" & Cursor.Position.ToString End Sub

　　一切OK，按下运行按钮执行程序就可以看到运行结果了。

　　看了以上代码，大伙儿明白了吧，只要将需要放上控件的状态栏面板的Style属性设为OwnerDraw，然后在状态栏的DrawItem中利用sbdevent提供Bounds中的坐标针对对应的面板调整控件的尺寸即可，放任何控件都可以。呵呵，所有的一切就那么简单。