InfoConnect for Airlines VBA Guide
UiControl Object
Defines properties and operations on the UI control object.
This example illustrates how to use a recursive function to enumerate all the UiControl objects that make up the InfoConnect Ribbon. It prints the id value of each UiControl object to the "immediate" pane in the Visual Basic editor.
Public Sub EnumerateUIControls()
Dim controls() As UiControl
Dim ctrlContainer As UiControlContainer
Dim i As Long
controls = ThisView.UiMode.SubItems
For i = 0 To UBound(controls)
Debug.Print controls(i).id
Set ctrlContainer = controls(i)
RecurseSubItems ctrlContainer.SubItems
End Sub
Private Sub RecurseSubItems(ctrls() As UiControl)
Dim container As UiControlContainer
Dim i As Long
If UBound(ctrls) >= 0 Then
For i = 0 To UBound(ctrls)
Debug.Print ctrls(i).id
On Error Resume Next
Set container = ctrls(i)
If Err = 0 Then
RecurseSubItems container.SubItems
End If
End If
End Sub
See Also