Can't Add StatusBar

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Clearly I've missed something.
- I'm using VB6

My MDI form has a CommandBars control.
I add the following code ...

    Dim StatusBar As IStatusBar
    Set StatusBar = CommandBars.StatusBar
    StatusBar.Visible = True

However, IStatusBar is not available in the syntax popup when I enter the code. When I run it, it fails on the second line (Type mismatch).

Instead of As IStatusBar, I then tried As StatusBar which is available in the syntax popup. But I still get the same error on the second line (Set StatusBar =...).

I see other people are able to make this work, so what silly thing did I miss?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
corpcon Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 June 2007 Status: Offline Points: 70	Post Options Post Reply Quote corpcon Report Post Thanks(0) Quote Reply Topic: Can't Add StatusBar Posted: 21 September 2007 at 9:28pm
	Clearly I've missed something. - I'm using VB6 My MDI form has a CommandBars control. I add the following code ... Dim StatusBar As IStatusBar Set StatusBar = CommandBars.StatusBar StatusBar.Visible = True However, IStatusBar is not available in the syntax popup when I enter the code. When I run it, it fails on the second line (Type mismatch). Instead of As IStatusBar, I then tried As StatusBar which is available in the syntax popup. But I still get the same error on the second line (Set StatusBar =...). I see other people are able to make this work, so what silly thing did I miss?

Bernie Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 July 2007 Location: Taiwan Status: Offline Points: 109	Post Options Post Reply Quote Bernie Report Post Thanks(0) Quote Reply Posted: 22 September 2007 at 3:15am
	Sytax Error in your codes. Dim ST As StatusBarPane Set ST = CommandBars1.StatusBar.AddPane(12) ST.Text = Now ST.Width = 500 CommandBars1.StatusBar.Visible = True These codes did work!