Sorry, I'm not sure what you mean.
I catch the cbTitle_Execute event (cbTitle si the ribbon bar that has the large round System button) but it does not catch a double click. It catches the events for the button items I've added ('Save', 'Save and Close' and 'Discard and Close' in my case) but not a double click.
Here's how I create the ribbon bar and System button:
... in form load...
ConfigureMdiChildEditorRibbonBar cmdbars.AddRibbonBar("Title"), bShowRibbonBarQuickAccess
...
Private Sub ConfigureMdiChildEditorRibbonBar( _ ByVal rb As XtremeCommandBars.RibbonBar, _ ByVal bShowQuickAccess _ ) With rb .AllowMinimize = True .EnableDocking XtremeCommandBars.XTPToolBarFlags.xtpFlagStretched .ShowCaptionAlways = False .ShowGripper = False .MinimumVisibleWidth = 100 .ShowQuickAccess = bShowQuickAccess AddMdiChildEditorSystemButton rb .EnableFrameTheme .RedrawBar End With End Sub
Private Sub AddMdiChildEditorSystemButton(ByVal rb As XtremeCommandBars.RibbonBar) Dim cbp As XtremeCommandBars.CommandBarPopup Set cbp = rb.AddSystemButton() With cbp .CommandBar.SetIconSize 32, 32 .IconId = ID_TRYGEAR_ICON .flags = xtpFlagNoMovable End With AddMdiChildEditorSystemButtonButtons cbp End Sub
' Caller must add BTN_ID_SAVE, BTN_ID_SAVE_AND_CLOSE, and BTN_ID_DISCARD_AND_CLOSE ' to CommandBars' Execute() handler Private Sub AddMdiChildEditorSystemButtonButtons(ByVal cbp As XtremeCommandBars.CommandBarPopup) AddSystemButtonButton(cbp, BTN_ID_SAVE, ICON_SAVE, "Save").Enabled = CanSaveObjects() AddSystemButtonButton(cbp, BTN_ID_SAVE_AND_CLOSE, ICON_SAVE_AND_CLOSE, "Save and Close").Enabled = CanSaveObjects() AddSystemButtonButton cbp, BTN_ID_DISCARD_AND_CLOSE, ICON_DISCARD_AND_CLOSE, "Discard and Close" End Sub
Heres my ribbon bar event code:
Private Sub cbTitle_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl) Select Case Control.id Case BTN_ID_SAVE, BTN_ID_SAVE_AND_CLOSE, BTN_ID_DISCARD_AND_CLOSE HandleFileOps Control.id End Select End Sub
Sorry for the confusion.
------------- Software Developer
Product: Xtreme SuitePro (ActiveX) version 13.0
Platform: Windows XP (32bit) - SP 3
Language: Visual Basic 6.0
|