Enable & Disable Icons on Toolbar.

[1x2z3]

When a certian button is selected on a Toolbar like for instance "Add", some of the other icons on the toolbar must be disable till a other Icon is selected that will Enable it.

Current code is :

Private Sub Toolbar1_ButtonClick(ByVal Button MSComctlLib.Button)

Select Case Button.Key

Case is = "Add"
Case is = "Save"
Case is = "Delete"
Case is = "Cancel"
Case is = "Exit"

End Selected

End Sub

 

[zemp]

To disable a toolbar button use the following,

Toolbar1.Buttons(1).Enabled = False

The index value (1) identifies the specific button. The button index is 1 based so the first button is number 1. Separator buttons are included in the indexes.

zemp