Group controls

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
DonB Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 25 January 2007 Location: United States Status: Offline Points: 21	Post Options Post Reply Quote DonB Report Post Thanks(0) Quote Reply Topic: Group controls 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

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: 11 February 2007 at 3:20am
	Hi, use IRibbonGroup::Item property
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

DonB Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 25 January 2007 Location: United States Status: Offline Points: 21	Post Options Post Reply Quote DonB Report Post Thanks(0) Quote Reply Posted: 11 February 2007 at 1:49pm
	Duh, boy do I feel stupid :) - thanks