How can I be able to detect wich ribbon tab was selected?

thank you,

Hi,

 

In your Execute event add:

 

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    On Error Resume Next
   
    Select Case Control.Id
        Case XTPCommandBarsSpecialCommands.XTP_ID_RIBBONCONTROLTAB:
            Debug.Print "Selected Tab is Changed"

I tried your code, but it seems that all the ribbon tabs have the same id "9604", and that is not helping me at all.

so how can I be able to make the difference between the tabs?

thank you,

 

yes, this code help to find event when selected tab was changed.  to find selected tab use something like:

 

if (RibbonBar.Tab(1).Selected) then

 

or

 

RibbonBar.SelectedTab

I used RibbonBar.SelectedTab with the select statment to find out wich tab was selected, but everytime I select tab with the index 1, the application crashed and VB6 is closed. I dont't know if I am doing something wrong or it's something else.

My code:

 

 

Dim RibbonBar As RibbonBar

 

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
Select Case Control.Id
Case XTPCommandBarsSpecialCommands.XTP_ID_RIBBONCONTROLTAB:
    Select Case RibbonBar.SelectedTab.Index
        Case 0
            Report1.Visible = False
            Calendar1.Visible = True
        Case 1
            Calendar1.Visible = True
            Report1.Visible = False
        Case 2: MsgBox "Other"
    End Select
Case 1000: End
Case 201: Calendar1.ViewType = xtpCalendarWorkWeekView
Case 200: Calendar1.ViewType = xtpCalendarDayView
Case 202: Calendar1.ViewType = xtpCalendarWeekView
Case 203: Calendar1.ViewType = xtpCalendarMonthView
End Select
End Sub