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中的坐标针对对应的面板调整控件的尺寸即可，放任何控件都可以。呵呵，所有的一切就那么简单。

转载于:https://www.cnblogs.com/qiaoxing/archive/2006/02/18/332860.html