![]()  | 
 
Caption of control is not shown | 
 
    Post Reply  
   | 
  
| Author | |
   
   Stefan Überbacher  
   
   Groupie  
   Joined: 20 December 2011 Status: Offline Points: 11  | 
  
   
      Post Options
    
        Thanks(0)
      Quote   Reply
   
     Topic: Caption of control is not shownPosted: 20 December 2011 at 2:51am  | 
 
| 
   
    
   
Hi, 
   
  I've added a custom control to the commandbar, but the caption of the control is not shown. Why is that? Stefan  | 
 |
![]()  | 
 |
   
   SuperMario  
   
   Senior Member  
    
   Joined: 14 February 2004 Status: Offline Points: 18057  | 
  
   
      Post Options
    
        Thanks(0)
      Quote   Reply
   
     Posted: 03 January 2012 at 2:43pm | 
 
| 
   
    
   You can just add a command and set the style to xtpControlLabel before this custom control.
    
   
   | 
 |
![]()  | 
 |
   
   Stefan Überbacher  
   
   Groupie  
   Joined: 20 December 2011 Status: Offline Points: 11  | 
  
   
      Post Options
    
        Thanks(0)
      Quote   Reply
   
     Posted: 04 January 2012 at 1:25am | 
 
| 
   
    
   Ok, but the label is not on the same level as the customcontrol. It should look like this (the customcontrol is a datetimepicker-control): 
   
  Date: 04.01.2012 How do you do that in a ribbonbar? 
    | 
 |
![]()  | 
 |
   
   SuperMario  
   
   Senior Member  
    
   Joined: 14 February 2004 Status: Offline Points: 18057  | 
  
   
      Post Options
    
        Thanks(0)
      Quote   Reply
   
     Posted: 11 January 2012 at 11:20am | 
 
| 
   
    
   
I modified the ribbon sample, note the control flags for the progress control: 
   
      Dim TabAdvanced As RibbonTab     Set TabAdvanced = RibbonBar.InsertTab(7, "&Advanced")     TabAdvanced.Id = ID_TAB_ADVANCED     Set ViewGroup = TabAdvanced.Groups.AddGroup("&Advanced Controls", ID_GROUP_ADVANCED)     ViewGroup.ControlsCentering = True     Set Control = ViewGroup.Add(xtpControlLabel, 0, "Indent")     Control.Style = xtpButtonCaption     Control.BeginGroup = True     Set Control = CommandBars.CreateCommandBarControl("CXTPControlProgress")     ViewGroup.AddControl Control     Control.Width = 100     Control.Pos = 30     Control.Flags = xtpFlagWrapRow     Set Control = CommandBars.CreateCommandBarControl("CXTPControlScrollBar")     ViewGroup.AddControl Control     Control.Width = 100     Control.BeginGroup = True     Set Control = CommandBars.CreateCommandBarControl("CXTPControlScrollBar")     Control.ScrollBarStyle = xtpScrollStyleSlider     ViewGroup.AddControl Control     Control.Width = 100     Control.BeginGroup = True ![]()  | 
 |
![]()  | 
 |
    Post Reply  
   | 
  |
|       
  
  Tweet   	
    | 
 
| Forum Jump | Forum Permissions  ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum  |