VB.NET状态栏控件上添加任意控件
这个示例是将一个按钮放在状态栏的第一个面板上，第二个面板显示按钮点击时鼠标的屏幕坐标。首先在窗体放入下表中的控件并按之设置各控件属性
| 控件类型 | 属性 | 设置值 |
| 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中的坐标针对对应的面板调整控件的尺寸即可，放任何控件都可以。呵呵，所有的一切就那么简单。