Codejock Developer Community : Change coption of a ribbontab http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 15:35:05 +0000 Mon, 08 Jul 2013 03:21:12 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=20878 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Change coption of a ribbontab : Hallo,nach einigem Trial &amp;...]]> http://forum.codejock.com/forum_posts.asp?TID=20878&PID=71332&title=change-coption-of-a-ribbontab#71332 Author: ruschmeier@truncad.d
Subject: 20878
Posted: 08 July 2013 at 3:21am

Hallo,
 
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
]]> Mon, 08 Jul 2013 03:21:12 +0000 http://forum.codejock.com/forum_posts.asp?TID=20878&PID=71332&title=change-coption-of-a-ribbontab#71332 <![CDATA[Change coption of a ribbontab : hallo frankhabe das gleiche problem....]]> http://forum.codejock.com/forum_posts.asp?TID=20878&PID=71319&title=change-coption-of-a-ribbontab#71319 Author: MetallDesign
Subject: 20878
Posted: 06 July 2013 at 3:08pm

hallo frank

habe das gleiche problem. hast du eine lösung gefunden?

gruss ramon
]]> Sat, 06 Jul 2013 15:08:01 +0000 http://forum.codejock.com/forum_posts.asp?TID=20878&PID=71319&title=change-coption-of-a-ribbontab#71319 <![CDATA[Change coption of a ribbontab : Hi Cory,thanks a lot for the...]]> http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70856&title=change-coption-of-a-ribbontab#70856 Author: ruschmeier@truncad.d
Subject: 20878
Posted: 22 April 2013 at 12:26pm

Hi Cory,
 
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
]]> Mon, 22 Apr 2013 12:26:02 +0000 http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70856&title=change-coption-of-a-ribbontab#70856 <![CDATA[Change coption of a ribbontab : Hi,A Try with:Form.CommandBars.FindControl(,ID_TAB_RAUM,...]]> http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70855&title=change-coption-of-a-ribbontab#70855 Author: cory
Subject: 20878
Posted: 22 April 2013 at 7:19am

Hi,

A Try with:

Form.CommandBars.FindControl(,ID_TAB_RAUM, , True).caption = "Test"

you must set the parameter: 'recursive' = true.

By

Cory

]]> Mon, 22 Apr 2013 07:19:47 +0000 http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70855&title=change-coption-of-a-ribbontab#70855 <![CDATA[Change coption of a ribbontab : Hi everyone,I must change...]]> http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70025&title=change-coption-of-a-ribbontab#70025 Author: ruschmeier@truncad.d
Subject: 20878
Posted: 08 March 2013 at 5:31am

Hi everyone,
 
I must change the caption of a tab on a commandbars-ribbon. But I cannot find a way to do so.
 
I have tried :
 
Form.CommandBars.FindControl(,ID_TAB_RAUM).caption = "Test"
Form.CommandBars.DesignerControls.Find(,ID_TAB_RAUM).caption = "Test"
 
and with both I get an error message:
 
"Objektvariable oder With-Blockvariable nicht gesetzt" (German OS)
"Objectvariable orwith-blockvariable not set" (my translation)
 
I hope someone can help me, otherwise all our users have to learn German....
 
Thanks,
Frank
]]> Fri, 08 Mar 2013 05:31:30 +0000 http://forum.codejock.com/forum_posts.asp?TID=20878&PID=70025&title=change-coption-of-a-ribbontab#70025