Due to the Russian invasion of Ukraine, we have paused all purchases and training from Russia.  Read Statement from Scrum.org

Adding ToolStripPanel UI Adapter support to the Composite UI Application Block


No items found

Table of Contents

I was very supprised to find that CAB did not support a higher level the the ToolStrip in its basic implementation. I resolved to solve this and I have added an adapter and factory for the ToolStripPanel initialy, but I have been having trouble with the ToolStripContainer. So, as my first post, here is the ToolStripPanel code.

There are two parts to this. And two ways to do it. The first is to edit the existing ToolStrip UI factory to include the new code. But I do not like to do this as I may update CAB in the future and do not want to rely on havign to implement the adaptions again.

The second is to inherit from the current classes in you own assembly and to adapt the class to support both. That way you are extending, not replacing.

Here is the code for the new ToolStripUIAdapterFactory factory:

 Public Class ToolStripPanelUIAdapter : Inherits UIElementAdapter(Of ToolStrip)
        Private innerToolStripPanel As ToolStripPanel
        Public Sub New(ByVal objToolStripPanel As ToolStripPanel)
            Guard.ArgumentNotNull(objToolStripPanel, "objToolStripPanel")
            Me.innerToolStripPanel = objToolStripPanel
        End Sub
        Protected Overrides Function Add(ByVal uiElement As ToolStrip) As ToolStrip
            If Me.innerToolStripPanel Is Nothing Then
                Throw New InvalidOperationException()
            End If
            Me.innerToolStripPanel.Join(uiElement, 3)
            Return uiElement
        End Function
        Protected Overrides Sub Remove(ByVal uiElement As ToolStrip)
            If Me.innerToolStripPanel.Controls.Contains(uiElement) Then
            End If
        End Sub
    End Class

As you can see it inherits from the CAB class of the same name and overrides the same methods that it does and adds the support for the new Adapter for the ToolStripPanel.

You can now add the factory to the UI Element Adapter Factory Catalog in the AfterShellCreated part of the main shell application:

Dim catalog As IUIElementAdapterFactoryCatalog = RootWorkItem.Services.Get(Of IUIElementAdapterFactoryCatalog)()
        catalog.RegisterFactory(New UIElements.ToolStripUIAdapterFactory())

The CAB framework will now handle ToolStripPanel’s as UI Extention Sites with the appropriet factory. Now all we need is the adapter…

Here is the code for the ToolStripPanel Adapter:

   1:      Public Class ToolStripPanelUIAdapter : Inherits UIElementAdapter(Of ToolStrip)
   3:          Private innerToolStripPanel As ToolStripPanel
   4:          Private Shared NumberOfAddedControls As Integer = 0
   6:          Public Sub New(ByVal objToolStripPanel As ToolStripPanel)
   7:              Guard.ArgumentNotNull(objToolStripPanel, "objToolStripPanel")
   8:              Me.innerToolStripPanel = objToolStripPanel
   9:          End Sub
  12:          Protected Overrides Function Add(ByVal uiElement As ToolStrip) As ToolStrip
  13:              If Me.innerToolStripPanel Is Nothing Then
  14:                  Throw New InvalidOperationException()
  15:              End If
  16:              Dim Row As Integer = 2
  17:              'TODO: work out how to specify row!
  18:              Me.innerToolStripPanel.Join(uiElement, 0)
  19:              Me.innerToolStripPanel.Controls.SetChildIndex(uiElement, NumberOfAddedControls + 1)
  20:              NumberOfAddedControls += 1
  21:              Return uiElement
  22:          End Function
  24:          Protected Overrides Sub Remove(ByVal uiElement As ToolStrip)
  25:              If Me.innerToolStripPanel.Controls.Contains(uiElement) Then
  26:                  Me.innerToolStripPanel.Controls.Remove(uiElement)
  27:              End If
  28:          End Sub
  30:      End Class

This code registers the Top panel, but you can register another or all of them, but only on seperate sites. Once you have register the site you can create and add ToolStrips to it:

Dim objToolStip As New System.Windows.Forms.ToolStrip
LocalWorkItem.UIExtensionSites.RegisterSite("MyCustomToolStripSitename", objToolStip)

Don’t forget the second registration that allows you to add a button to the ToolStrip.

All done… You should now be able to create dynamic tool strips and populate them. If you want to customise command, you will need to create a command adapter for the ToolStripPanel and add it to CAB.

Create a conversation around this article

Share on Facebook
Share on Twitter
Share on Linkdin

Want to learn more?

Check out the many training classes that we have.

No items found

Want to read more?


We believe that every company deserves high quality software delivered on a regular cadence that meets its customers needs. Our goal is to help you reduce your cycle time, improve your time to market, and minimise any organisational friction in achieving your goals.

naked Agility Limited is a professional company that offers training, coaching, mentoring, and facilitation to help people and teams evolve, integrate, and continuously improve.

We recognise the positive impact that a happy AND motivated workforce, that has purpose, has on client experience. We help change mindsets towards a people-first culture where everyone encourages others to learn and grow. The resulting divergent thinking leads to many different ideas and opportunities for the success of the organisation.


× How can I help you?