Toolbar Control

Now that the toolbar has been created, we need to write some code that will run when a button is clicked. Not suprisingly, the ButtonClick event occurs whenever a button is clicked. We are then passed a reference to the button that has been clicked, which we can use to work out what to do.

The code below does exactly this. All you need to do is add a 'Case' for each of the buttons, and then run the code that you want. If you already have a menu item that does the same thing, you could simply call that procedure.

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    Select Case Button.Key 'get the button's key
    Case "Open"
        'perform Open action
    Case "Save"
        'perform Save action
    Case "New"
        'perform New action
    End Select
End Sub