Codejock Developer Community : Group controls http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 13:46:43 +0000 Sun, 11 Feb 2007 13:49:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6368 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Group controls : Duh,boy do I feel stupid :) -...]]> http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20280&title=group-controls#20280 Author: DonB
Subject: 6368
Posted: 11 February 2007 at 1:49pm

Duh, boy do I feel stupid :) - thanks

]]> Sun, 11 Feb 2007 13:49:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20280&title=group-controls#20280 <![CDATA[Group controls : Hi, use IRibbonGroup::Item...]]> http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20267&title=group-controls#20267 Author: Oleg
Subject: 6368
Posted: 11 February 2007 at 3:20am

Hi,
 
use
IRibbonGroup::Item property
]]> Sun, 11 Feb 2007 03:20:50 +0000 http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20267&title=group-controls#20267 <![CDATA[Group controls : How do youaccess individual controls...]]> http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20261&title=group-controls#20261 Author: DonB
Subject: 6368
Posted: 10 February 2007 at 2:03pm

How do you access individual controls in a Group?  Used designer to create all controls.  Ribbon does not have CommandBar class (at least I can't find one) so I use an Array filled with ID's to populate anything Ribbon related.

Sub RibbonObjectControlsUsingArray( _
oCB As XtremeCommandBars.CommandBars, _
oRibbonObject As Object, _
iArray() As Long)
Dim i       As Long
Dim iCount  As Long
Dim oCTL    As XtremeCommandBars.CommandBarControl
Dim oCtlDC  As XtremeCommandBars.CommandBarControl
   
oRibbonObject.DeleteAll
iCount = UBound(iArray)
For i = 0 To iCount
 Select Case iArray(i)
 Case C_BeginGroup
  If Not (oCTL Is Nothing) Then oCTL.BeginGroup = True
 Case Else
  Set oCtlDC = oCB.DesignerControls.Find(, iArray(i))
  If Not (oCtlDC Is Nothing) Then
   With oCtlDC
     Set oCTL = oRibbonObject.Add(.Type, .ID, .Caption)
     oCTL.DescriptionText = .DescriptionText
     oCTL.IconId = .IconId
     oCTL.Style = .Style
     oCTL.ToolTipText = .ToolTipText
   End With
   Set oCtlDC = Nothing
  End If
 End Select
Next
Set oCTL = Nothing
End Sub
 
After I call this how do I get access to an individual control to change, say its Style property?  Tried using Ribbon.Controls.Find after routine but it changed Sytle in QuickAccessControls (which uses above Sub) which I did not want to happen.  Any help is appreciated.
 
Regards,
Don 
]]> Sat, 10 Feb 2007 14:03:34 +0000 http://forum.codejock.com/forum_posts.asp?TID=6368&PID=20261&title=group-controls#20261