Change coption of a ribbontab

 

 

 

 

thanks a lot for the reply. Unfortunately I still get the runtime error 91.

 

But at least someone had an idea. The people from codejock do not seem to be too interested in supporting their customers. That's a real pitty, because the control itself is nice.

 

Or does anyone know a way to get an answer from them?

 

Regards,

Frank

 

nach einigem Trial & error habe ich eine Lösung gefunden.

 

Public Sub SetCaptionTab(CaptionStr As String, ID_TAB As Long, CaptionJN As Integer, ToolTippJN As Integer)

    Dim RibbonBar As RibbonBar
    Dim RibbonTab As RibbonTab
    Set RibbonBar = Korpus.CommandBars.ActiveMenuBar
    Set RibbonTab = RibbonBar.FindTab(ID_TAB)
    If CaptionJN = 1 Then RibbonTab.Caption = CaptionStr
    If ToolTippJN = 1 Then RibbonTab.ToolTip = CaptionStr

End Sub

 

Public Sub SetCaptionGroup(CaptionStr As String, ID_GROUP As Long)

    Dim RibbonBar As RibbonBar
    Dim RibbonGroup As RibbonGroup
    Set RibbonBar = Korpus.CommandBars.ActiveMenuBar
    Set RibbonGroup = RibbonBar.FindGroup(ID_GROUP)
    On Error Resume Next
    RibbonGroup.Caption = CaptionStr
    On Error GoTo 0

End Sub

 

Public Sub SetCaptionControl(CaptionStr As String, ID_CONTROL As Long, CaptionJN As Integer, DescriptionJN As Integer, ToolTippJN As Integer)

    Dim RibbonBar As RibbonBar
    Dim RibbonControl As XtremeCommandBars.CommandBarControl
    Set RibbonBar = Korpus.CommandBars.ActiveMenuBar
    Set RibbonControl = RibbonBar.FindControl(, ID_CONTROL, , 1)
    If CaptionJN = 1 Then RibbonControl.Caption = CaptionStr
    If DescriptionJN = 1 Then RibbonControl.DescriptionText = CaptionStr
    If ToolTippJN = 1 Then RibbonControl.ToolTipText = CaptionStr

End Sub

 

Das funktioniert jetzt ganz gut.

 

Aber schön wäre es gewesen, wenn Codejock wenigstens reagiert hätte...

 

Gruß,

Frank