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

[freerunning]

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

[guchenghong]

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

[lilaclone]

例：
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 Sub

Private 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