知识大全随心所欲绘制状态栏

Posted 2022-07-17 属性

篇首语：吃的苦中苦，方为人上人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全随心所欲绘制状态栏相关的知识，希望对你有一定的参考价值。

　　状态栏我不想详细解释控件非常容易用 StatusBar和StatusBarPanel配合使用非常简单但是这样只是满足了基本的状态栏功能的需要很多的时候我们可能还需要个性化的状态栏我们需要随心所欲的绘制它要做到这一点不难 StatusBarPanel类提供了Style属性将其设置为StatusBarPanelStyle OwnerDraw就可以自己编写代码绘制它了 StatusBar的DrawItem事件当所有者描述的状态栏控件的可视特征发生变化时发生此事件在这个事件里安置绘制StatusBarPanel的程序代码

　　StatusBarPanelStyle枚举可以决定StatusBarPanel是由系统绘制还是由程序员亲自编写程序进行绘制有两种选择Text和OwnerDraw 前者要求StatusBarPanel按照标准字体显示文本后者允许程序员自己写代码绘制StatusBarPanel 默认情况下是Text

　　以下代码片断自行绘制StatusBarPanel

　　在一个窗体上添加一个状态栏将其ShowPanels属性设置为true 然后对其Panels属性进行设置添加个StatusBarPanel 其中第二个的Style属性设置为Text 其余两个的Style设置为OwnerDraw

　　Private Sub StatusBar _DrawItem(ByVal sender As Object ByVal sbdevent As System Windows Forms StatusBarDrawItemEventArgs) Handles StatusBar 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 = ) Then

　　g FillRectangle(Brushes Red rf)

　　Dim f As New Font( ËÎÌå )

　　Dim b As Brush = Brushes Black

　　g DrawString(sbdevent Panel Text f b rf)

　　End If

　　If (sbdevent Index = ) Then

　　g FillRectangle(Brushes Red rf)

　　Dim f As New Font( ËÎÌå )

　　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 StatusBar 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 StatusBar Panels

　　If (p Text = str) Then

　　panel = p

　　End If

　　If (Not (panel Is Nothing)) Then

　　Me StatusBar Panels Remove(panel)

　　End If

　　End Sub

　　如何在状态条面板上显示图标？

　　使用StatusBarPanel Icon属性

　　如何自动分配状态条空间？

cha138/Article/program/net/201311/12124

知识大全 随心所欲绘制状态栏

知识大全随心所欲绘制状态栏