Actions not working

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

   I am using the following code to create one Action for each Control that I created in the designer. This code runs, however when I handle the Execute event (shown below) nothing happens.

Also, there is no option in the Designer to "Enable Actions", I have looked everywhere...

Private Sub MDIForm_Load()

    CommandBarsGlobalSettings.App = VB.App

    With CommandBars

        .LoadDesignerBars VB.App.Path & "\MainWindow.xcb"

        .EnableActions

        .EnableCustomization False

        .Icons = ImageManager1.Icons

        With .ShowTabWorkspace(True)
            .EnableGroups
        End With

        With .StatusBar
            .Visible = True
            With .AddPane(0)
                .Style = SBPS_STRETCH
                .Text = "Test!"
            End With
            .AddPane ID_INDICATOR_CAPS
            .AddPane ID_INDICATOR_NUM
            .AddPane ID_INDICATOR_SCRL
        End With

    End With

    AddCommandActions

End Sub

Private Sub AddCommandActions()

    Dim colTool As XtremeCommandBars.CommandBarControls, oTool As XtremeCommandBars.CommandBarControl
    Dim colAction As XtremeCommandBars.CommandBarActions

    With CommandBars
        Set colTool = .DesignerControls
        Set colAction = .Actions
    End With

    For Each oTool In colTool

        With oTool
            colAction.Add oTool.Id, oTool.Caption, oTool.ToolTipText, oTool.DescriptionText, oTool.Category
        End With

    Next

End Sub

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

    Debug.Print "MainWindowMDI.CommandBars_Execute " & Control.Caption

    Select Case Control.Id
    Case ID_WINDOW_DBEX, ID_WINDOW_QUERYRESULTS
        ' NOTE: This doesn't do ANYTHING!
        With CommandBars.Actions(Control.Id)
            .Checked = True
        End With

    End Select
End Sub