谁能高诉我如何使用状态栏StatusBar,先谢谢各位了.

Question

我想在程序中对状态栏的显示进行设置，该如何做？

Answer 1

StatusBar1.Panels(1).Text = "aaaaa"

Answer 2

例：
Private Sub Form_Load()
'运行后使说明性的标签不出现在窗体上
    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = False
    Label4.Visible = False
'运行后对StatusBar1的窗格属性进行设置
'消除窗格1和窗格2的文本
    StatusBar1.Panels(1).Text = ""
    StatusBar1.Panels(2).Text = ""
'消除窗格1和窗格2的的边框
    StatusBar1.Panels(1).Bevel = 0
    StatusBar1.Panels(2).Bevel = 0
End SubPrivate Sub Timer1_Timer()
    Static intC As Integer
    intC = intC + 1
    If intC = 4 Then intC = 1
    Select Case intC
        Case 1
            StatusBar1.Panels(3).Picture = Image1.Picture
        Case 2
            StatusBar1.Panels(3).Picture = Image2.Picture
        Case 3
            StatusBar1.Panels(3).Picture = Image3.Picture
    End Select
End Sub