Export (0) Print
Expand All

How to: Customize Colors in ToolStrip Applications

You can customize the appearance of your ToolStrip by using the ToolStripProfessionalRenderer class to use customized colors.

The following code example demonstrates how to use a ToolStripProfessionalRenderer to define custom colors at run time.

' This code example demonstrates how to use a ProfessionalRenderer 
' to define custom professional colors at runtime. 
Class Form2
   Inherits Form

   Public Sub New()
      ' Create a new ToolStrip control. 
      Dim ts As New ToolStrip()

      ' Populate the ToolStrip control.
      ts.Items.Add("Apples")
      ts.Items.Add("Oranges")
      ts.Items.Add("Pears")
      ts.Items.Add("Change Colors", Nothing, New EventHandler(AddressOf ChangeColors_Click))

      ' Create a new MenuStrip. 
      Dim ms As New MenuStrip()

      ' Dock the MenuStrip control to the top of the form.
      ms.Dock = DockStyle.Top

      ' Add the top-level menu items.
      ms.Items.Add("File")
      ms.Items.Add("Edit")
      ms.Items.Add("View")
      ms.Items.Add("Window")

      ' Add the ToolStrip to Controls collection. 
      Me.Controls.Add(ts)

      ' Add the MenuStrip control last. 
      ' This is important for correct placement in the z-order. 
      Me.Controls.Add(ms)
    End Sub 

   ' This event handler is invoked when the "Change colors" 
   ' ToolStripItem is clicked. It assigns the Renderer 
   ' property for the ToolStrip control. 
    Sub ChangeColors_Click(ByVal sender As Object, ByVal e As EventArgs)
        ToolStripManager.Renderer = New ToolStripProfessionalRenderer(New CustomProfessionalColors())
    End Sub 
End Class 

' This class defines the gradient colors for  
' the MenuStrip and the ToolStrip. 
Class CustomProfessionalColors
   Inherits ProfessionalColorTable

   Public Overrides ReadOnly Property ToolStripGradientBegin() As Color
      Get 
         Return Color.BlueViolet
      End Get  
   End Property 

   Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color
      Get 
         Return Color.CadetBlue
      End Get  
   End Property 

   Public Overrides ReadOnly Property ToolStripGradientEnd() As Color
      Get 
         Return Color.CornflowerBlue
      End Get  
   End Property 

   Public Overrides ReadOnly Property MenuStripGradientBegin() As Color
      Get 
         Return Color.Salmon
      End Get  
   End Property 

   Public Overrides ReadOnly Property MenuStripGradientEnd() As Color
      Get 
         Return Color.OrangeRed
      End Get 
    End Property 

End Class

Show:
© 2014 Microsoft