listed all the controls |
Post Reply |
Author | |
RedPsyrus
Groupie Joined: 17 November 2008 Status: Offline Points: 38 |
Post Options
Thanks(0)
Posted: 14 April 2009 at 7:14pm |
Hi..
I create a RibbonBar with a lot control.. and multiple type of controls, when i try to list all the controls in a list box or in combobox there is some controls not show..(the controls in the xtpControlPopup are not show) is there a nother way to list all the controls..?! I use this code Dim Control As XtremeCommandBars.CommandBarControl For Each Control In CommandBars.Controls list1. additem (control.caption) next control thanks |
|
I'm using visual studio 2008 pro and codejock 12.1.1
|
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Hi,
Why this code have to add all controls from xtpControlPopup ? :)
You need check if control has type xtpControlPopup and call recursively method for Control.CommandBar.Controls
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
RedPsyrus
Groupie Joined: 17 November 2008 Status: Offline Points: 38 |
Post Options
Thanks(0)
|
hi oleg
I do this but there is an exception.. For Each Control In RibbonBar.Controls Select Case Control.Type Case XtremeCommandBars.XTPControlType.xtpControlButton 'Some code Case XtremeCommandBars.XTPControlType.xtpControlPopup dim PopUpControl As XtremeCommandBars.CommandBarControl For Each PopUpControl In Control.CommandBar.Controls 'Exception list1. additem (control.caption) next PopUpControl End Select next Control can you tell me what I can do please thanks |
|
I'm using visual studio 2008 pro and codejock 12.1.1
|
|
Oleg
Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
|
Replace to
Dim Control As XtremeCommandBars.CommandBarControl For Each Control In RibbonBar.Controls 'Some code Debug.Print(Control.Caption) Debug.Print(Control.Type) If (Control.Type = XtremeCommandBars.XTPControlType.xtpControlPopup) Then If Not Control.CommandBar Is Nothing Then Dim PopUpControl As XtremeCommandBars.CommandBarControl For Each PopUpControl In Control.CommandBar.Controls 'Exception 'list1.additem(Control.caption) Next PopUpControl End If End If Next Control |
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
RedPsyrus
Groupie Joined: 17 November 2008 Status: Offline Points: 38 |
Post Options
Thanks(0)
|
Thanks Oleg ...
It done |
|
I'm using visual studio 2008 pro and codejock 12.1.1
|
|
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 |