Command Bars - Multiple SwitchPanes in StatusBar

Print Page | Close Window

Multiple SwitchPanes in StatusBar

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=11094
Printed Date: 07 October 2024 at 8:32pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Multiple SwitchPanes in StatusBar

Posted By: chrisABC
Subject: Multiple SwitchPanes in StatusBar
Date 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