http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 04 Jun 2026 05:07:31 +0000 Wed, 18 Jun 2008 11:51:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=11094 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=11094&PID=36933&title=multiple-switchpanes-in-statusbar#36933 Author: chrisABC
Subject: 11094
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.

]]> Wed, 18 Jun 2008 11:51:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=11094&PID=36933&title=multiple-switchpanes-in-statusbar#36933