随心所欲绘制状态栏
状态栏我不想详细解释。控件非常容易用。StatusBar和StatusBarPanel配合使用,非常简单。但是这样只是满足了基本的状态栏功能的需要,很多的时候我们可能还需要个性化的状态栏。我们需要随心所欲的绘制它。要做到这一点不难,StatusBarPanel类提供了Style属性,将其设置为StatusBarPanelStyle.OwnerDraw就可以自己编写代码绘制它了。StatusBar的DrawItem事件当所有者描述的状态栏控件的可视特征发生变化时,发生此事件。在这个事件里安置绘制StatusBarPanel的程序代码。
StatusBarPanelStyle枚举可以决定StatusBarPanel是由系统绘制还是由程序员亲自编写程序进行绘制。有两种选择Text和OwnerDraw。前者要求StatusBarPanel按照标准字体显示文本,后者允许程序员自己写代码绘制StatusBarPanel。默认情况下是Text。
以下代码片断自行绘制StatusBarPanel:
在一个窗体上添加一个状态栏,将其ShowPanels属性设置为true。然后,对其Panels属性进行设置。添加3个StatusBarPanel,其中第二个的Style属性设置为Text,其余两个的Style设置为OwnerDraw。
Private Sub StatusBar1_DrawItem(ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) Handles StatusBar1.DrawItem
Dim g As Graphics = sbdevent.Graphics
Dim rf As New RectangleF(sbdevent.Bounds.X, sbdevent.Bounds.Y, _
sbdevent.Bounds.Width, sbdevent.Bounds.Height)
If (sbdevent.Index = 0) Then
g.FillRectangle(Brushes.Red, rf)
Dim f As New Font("ËÎÌå", 10)
Dim b As
Brush = Brushes.Black
g.DrawString(sbdevent.Panel.Text, f, b, rf)
End If
If (sbdevent.Index = 2) Then
g.FillRectangle(Brushes.Red, rf)
Dim f As New Font("ËÎÌå", 10)
Dim b As
Brush = Brushes.Black
g.DrawString(sbdevent.Panel.Text, f, b, rf)
End If
End Sub
需要特别强调一下参数 System.Windows.Forms.StatusBarDrawItemEventArgs 。该类型的参数包含一个与DrawItem事件相关的数据。详见下表:
BackColor
获取所绘制的项的背景色。
Bounds
获取表示所绘制项的边界的矩形。
Font
获取分配给所绘制项的字体。
ForeColor
获取所绘制项的前景色。
Graphics
获取要在其上绘制项的图形表面。
Index
获取所绘制项的索引值。
Panel
获取要绘制的StatusBarPanel。
State
获取所绘制项的状态。
如何让状态条右下角的三角消失呢?
将statusBar.SizingGrip属性设置为false。
如何让状态栏不显示其StatusBarPanel?
把statusBar的ShowPanel属性设置为false。
怎样在程序运行过程中向状态条添加(删除)面板?
使用StatusBar的Panels属性。
Private Sub btnAddPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddPanel.Click
Dim panel As New StatusBarPanel
panel.Text = "动态添加的面板!"
Me.StatusBar1.Panels.Add(panel)
End Sub
Private Sub btnDelPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelPanel.Click
Dim str As String = "动态添加的面板!"
Dim panel As StatusBarPanel
For Each p As StatusBarPanel In Me.StatusBar1.Panels
If (p.Text = str) Then
panel = p
End If
Next
If (Not (panel Is Nothing)) Then
Me.StatusBar1.Panels.Remove(panel)
End If
End Sub
如何在状态条面板上显示图标?
使用StatusBarPanel.Icon属性。
如何自动分配状态条空间?
使用StatusBarPanel.AutoSize属性。该值指示是否自动调整状态栏面板的大小。该属性接受一个StatusBarPanelAutoSize枚举。默认值是StatusBarPanelAutoSize.None,这意味着不论状态条如何面板始终保持大小不变。除此之外还有两种选择,Contents和Springs。前者表示面板宽度取决于其内容,后者表示面板大小会被自动调整,至于调整之后合适与否,那我可就说不准了。如果AutoSize设置为Springs,还可以用MinWidth属性设置最小宽度。