Multiple SwitchPanes in StatusBar |
Post Reply |
Author | |
chrisABC
Senior Member Joined: 05 June 2008 Status: Offline Points: 258 |
Post Options
Thanks(0)
Posted: 18 June 2008 at 11:51am |
Here is a method to have several different SwitchPanes spaced out across the StatusBar.
(Think of a SwitchPane as a VB Frame containing option buttons -- when you press (check) one button it unpresses (unchecks) all the other buttons in the same SwitchPane). The following code sample produces two SwitchPanes (groups of buttons) with a gap between them. Set SP1 = StatusBar.AddSwitchPane(100) SP1.AddSwitch 101, "First Button tooltip" SP1.AddSwitch 102, "Second Button Tootip" SP1. ............... etc '----------- Add a small blank pane for spacing -------------- Set Pane = StatusBar.AddPane(999) Pane.Text = " " Pane.Button = False '-------------- Second SwitchPane ------------------------------ Set SP2 = StatusBar.AddSwitchPane(200) SP2.AddSwitch 201, "Different set of buttons 1" SP2.AddSwitch 202, "Tooltip for different bttn 2" SP2. ............... etc The only way I found to move the SwitchPanes away from the right hand side of the StatusBar is to add another blank Pane after the SwitchPanes. |
|
Chris (Manchester, UK) -- www.abc6.co.uk ---- Using CodeJock ActiveX Suite 13.1.0 with Windows8, VB6 SP6
|
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |