Command Bars - StatusBar

Print Page | Close Window

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=8849
Printed Date: 17 June 2025 at 4:53pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: StatusBar

Posted By: StephenW
Subject: StatusBar
Date Posted: 21 November 2007 at 6:50am

Hello

I have recently started to upgrade the interface of a VB6 application. The SkinFramework is very impressive and instantly transforms the look of the product.

I have a couple of questions that I hope someone can point me in the right direction with :

1. I have removed the VB6 status bar and added one of your XtremeCommandBars.StatusBar controls. I can add panes to this and have the text I require. I cannot figure out however what controls the light / dark blue shading applied to the panes (light blue on the left hand side), or how to get seperator bars as used in Word 2007.

2. I would like to be able to add a clickable pane to the status bar, of which I can control the visibility. I cannot seem to add the click event for the status bar such that it ever fires. Is this possible to do easily ?

Many thanks for any help

Replies:

Posted By: Oleg
Date Posted: 21 November 2007 at 9:10am

Hi,

1. Sorry, seems for ActiveX version, you can't control it :( We will add it

2. You don't receive PaneClick event ?

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: StephenW
Date Posted: 21 November 2007 at 11:26am

When you say you will add it I assume this is for the next version release. What sort of timescales are normally involved for your releases so I have an idea on when I may be able to use this please ?

The paneclick event : No I dont receive it, but it may well be that I am doing something wrong.

1. I have an MDI form and have added a CommandBars control to it called objCommandbars.

2. In the MDIForm_Load event I add the status bar with a few panes (shown 1 pane added as an example) :

Dim objStatusBar As XtremeCommandBars.StatusBar
Dim objStatusBarPane As XtremeCommandBars.StatusBarPane

    ' Create a status bar and show it
    Set objStatusBar = objCommandbars.StatusBar
    objStatusBar.RemoveAll
    objStatusBar.Visible = True

    ' Add the panes for it
    Set objStatusBarPane = objStatusBar.AddPane(ID_STATUSBAR_REPORT)
    objStatusBarPane.Width = 96
    objStatusBarPane.Style = SBPS_NOBORDERS
    objStatusBarPane.Alignment = xtpAlignmentLeft
    objStatusBarPane.Text = "Test"

3. Now I have added an event handler for the click event of the status bar :

Private Sub StatusBar_PaneClick(ByVal Pane As XtremeCommandBars.StatusBarPane)
Debug.Print "PaneClick. Id = "; Pane.ID

End Sub

4. If I breakpoint this event and click the statusbar, all over it, it never triggers. It may well be the definition I have used for the event being incorrect, but I am unsure if this is the case or not.

Many thanks

Posted By: StephenW
Date Posted: 26 November 2007 at 10:30am

Will you get a chance to look at this soon please ?

Posted By: Oleg
Date Posted: 26 November 2007 at 11:05am

You didn't add WithEvents keyword:

Public WithEvents StatusBar As XtremeCommandBars.StatusBar

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: StephenW
Date Posted: 30 November 2007 at 9:49am

Doh!

Sorry, of course, its fine now.