1. Private xamApplicationMenu As ApplicationMenu
2. Private xamRibbon As XamRibbon
3. Private Sub TabGroupProperties()
4.
5. 'Get properties for all RibbontabItems
6. Dim resultString As String = ""
7.
8. For Each igTabItem As RibbonTabItem In xamRibbon.Tabs
9. resultString += getTabItemParams(igTabItem)
10. Next
11. For Each ctgTabGroup As ContextualTabGroup In xamRibbon.ContextualTabGroups
12. For Each igTabItem As RibbonTabItem In ctgTabGroup.Tabs
13. resultString += getTabItemParams(igTabItem)
14. Next
15. Next
16. MessageBox.Show(resultString)
17. End Sub
18.
19. 'Get properties for specified RibbontabItem
20. Private Function getTabItemParams(ByVal igTabItem As RibbonTabItem) As String
21. Dim result As String = ""
22. If igTabItem.IsInContextualTabGroup Then
23. result += igTabItem.Header + " TabItem is in ContextualTabGroup"
24. result += " named " + igTabItem.ContextualTabGroup.Caption
25. If igTabItem.IsFirstTabInContextualTabGroup Then
26. result += " - FirstTabInContextualTabGroup"
27. End If
28. If igTabItem.IsLastTabInContextualTabGroup Then
29. result += " - LastTabInContextualTabGroup"
30. End If
31. Else
32. result += igTabItem.Header + " TabItem is not in ContextualTabGroup"
33. End If
34. result += " : Number of Groups-" + igTabItem.RibbonGroups.Count.ToString()
35. If igTabItem.IsMouseOverTab Then
36. result += " : mouse is over this RibbonTabItem"
37. End If
38.
39. result += "" & Chr(10) & ""
40. Return result
41. End Function