Control the style and text of the StatusBar control.
StatusBar.SimpleText [ = string ]
StatusBar.Style [ = number ]
The Style property returns or sets the style of a StatusBar control. When Style = 0 the status bar shows all panels, but when Style = 1 the control display only one large panel.
Use the SimpleText property to set the text of the string to be displayed when the Style property is set to 1. NOTE giving a value to SimpleText automatically sets Style = 1.
Ocx StatusBar sb : .SimpleText = "Style is 1" : .Style = 0
sb.Add , , "Panel 1"
sb.Add , , "Style is 0"
sb.Add , , "CAPS" , 3
Ocx CheckBox chk = "Change Style to 1", 10, 10, 120, 14
Do : Sleep : Until Me Is Nothing
Sub chk_Click
sb.Style = chk.Value
EndSub
{Created by Sjouke Hamstra; Last updated: 23/10/2014 by James Gaite}