Finding a CommandBar by BarID (VB6) : thanks

Wed, 05 Dec 2007 04:43:27 +0000

Author: ylhyh
Subject: 2914
Posted: 05 December 2007 at 4:43am

thanks

Finding a CommandBar by BarID (VB6) : The CommandBars control doesn't...

Sun, 18 Sep 2005 13:29:09 +0000

Author: Milkman
Subject: 2914
Posted: 18 September 2005 at 1:29pm

The CommandBars control doesn't include a function that will find aCommand Bar by BarID. The sample programs use the Command Barindexvalue; however, that is a limited approach. Use thepiece of code below to create a CommandBar object from a BarID.

Private Function FindCommandBar(ByVal cbBarID As Long) As CommandBar
'This function returns a command bar object whose BarID matches cbBarID
'Declare Temporary Variables
Dim Bar As CommandBar
'Search through command bars for controls matching the ID Value
For Each Bar In CommandBars
    If Bar.BarID = cbBarID Then
        'Match Found
        Set FindCommandBar = Bar
        Exit Function
    End If
Next
End Function

With this piece of code you can directly access CommandBar objects through a single line of code:

FindCommandBar(ID_STANDARD_BAR).Visible = True

Or perhaps in your toolbar menu commands:

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

Select Case Control.Id
      CaseID_VIEW_TOOLBAR_STANDARD:    FindCommandBar(ID_STANDARD_BAR).Visible = NotFindCommandBar(ID_STANDARD_BAR).Visible
End Select

If you plan on using it like this, make sure to put a line of code inthe update procedure indicate the status of the toolbar in the dropdownmenus.

Private Sub CommandBars_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)

If Control Is Nothing Then Exit Sub
Select Case Control.Id
      CaseID_VIEW_TOOLBAR_STANDARD:    Control.Checked = FindCommandBar(ID_STANDARD_BAR).Visible
End Select
End Sub

Edited by Milkman

Codejock Developer Community : Finding a CommandBar by BarID (VB6)

Finding a CommandBar by BarID (VB6) : thanks

Finding a CommandBar by BarID (VB6) : The CommandBars control doesn't...