Ribbnbar selection

Author

Message

Topic Search

Topic Options

cmm2006

Senior Member

Joined: 26 September 2006
Status: Offline
Points: 118

Post Options

Post Reply

Quote cmm2006

Report Post

Thanks(0)

Quote

Topic: Ribbnbar selection
Posted: 12 April 2007 at 7:34pm

hello,

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

thank you,

Oleg

Admin Group

Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234

Post Options

Post Reply

Quote Oleg

Report Post

Thanks(0)

Quote

Posted: 13 April 2007 at 12:40am

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"

Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

cmm2006

Senior Member

Joined: 26 September 2006
Status: Offline
Points: 118

Post Options

Post Reply

Quote cmm2006

Report Post

Thanks(0)

Quote

Posted: 13 April 2007 at 3:06pm

hello,

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,

Oleg

Admin Group

Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234

Post Options

Post Reply

Quote Oleg

Report Post

Thanks(0)

Quote

Posted: 14 April 2007 at 1:38am

Hi,

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

RibbonBar.SelectedTab

Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

cmm2006

Senior Member

Joined: 26 September 2006
Status: Offline
Points: 118

Post Options

Post Reply

Quote cmm2006

Report Post

Thanks(0)

Quote

Posted: 15 April 2007 at 11:06am

Okay,

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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
cmm2006 Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 26 September 2006 Status: Offline Points: 118	Post Options Post Reply Quote cmm2006 Report Post Thanks(0) Quote Reply Topic: Ribbnbar selection Posted: 12 April 2007 at 7:34pm
	hello, How can I be able to detect wich ribbon tab was selected? thank you,

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 13 April 2007 at 12:40am
	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"
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

cmm2006 Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 26 September 2006 Status: Offline Points: 118	Post Options Post Reply Quote cmm2006 Report Post Thanks(0) Quote Reply Posted: 13 April 2007 at 3:06pm
	hello, 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,

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 14 April 2007 at 1:38am
	Hi, 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
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

cmm2006 Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 26 September 2006 Status: Offline Points: 118	Post Options Post Reply Quote cmm2006 Report Post Thanks(0) Quote Reply Posted: 15 April 2007 at 11:06am
	Okay, 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