用代码显示的方式是:StatusBar1。Panels(x)。Text = ”New string to appear”
编写代码
如果是一个多面板状态条
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel。Index
Case 1
’Code to follow if user clicks the first panel
Case 2
’Code to follow if user clicks the second panel
Case 3
'Code to follow if user clicks the third panel
End Select
End Sub