HOWTO: Display Additional Buttons in Customize Toolbar Dialog

   32-bit only, for Windows, version 4.0

SUMMARY

The Toolbar control that is provided with the Microsoft Windows Common Controls (COMCTL32.OCX) can be customized by users. The Customize Toolbar method is displayed if either:

• the AllowCustomize property is set to True and the user double-

   the Toolbar

   -or-

By default, this dialog lists all of the buttons on the Toolbar in the "Toolbar Buttons" lists but lists only a Separator in the "Available Buttons" list. This article describes how you can display additional toolbar buttons in the "Available Buttons" list.

MORE INFORMATION

All of the buttons in the Buttons collection of a Toolbar control appear in the Customize Toolbar dialog. Buttons that are currently showing on the Toolbar appear in the "Toolbar Buttons" list and Buttons that have been removed from the Toolbar through customization appear in the "Available Buttons" list. To add additional buttons to the "Available Buttons" list, create your default toolbar, use the SaveToolbar method to save this setting, add the additional buttons at run-time, and then use RestoreToolbar to restore the "default" toolbar settings.

Step-by-Step Example

1. Start a new project.

2. Reference the Microsoft Windows Common Controls (COMCTL32.OCX).

3. Add a Toolbar and an ImageList to Form1.

4. Add six images to ImageList1 with the following properties:

      Index          Key          Picture
      -----          ---          -------
      1              Bold
   

   2              Italic

   3              Underline

   4              Copy

   5              Paste

   6              Cut

1. Set the ImageList property of Toolbar1 to "ImageList1."

2. Add three buttons to Toolbar1 with the following properties:

      Index        Key            Image
      -----        ---            -----
      1            Bold           Bold
      2            Italic         Italic
      3            Underline      Underline
   
      NOTE: The Toolbar contains only these three buttons because
   

   layout of the "default" toolbar. The Copy, Paste, and Cut

   be added at run-time so that they will appear in the

   Buttons" list.

      Private Declare Function RegOpenKey Lib "advapi32.dll" Alias

         "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As

         phkResult As Long) As Long

      Const HKEY_CURRENT_USER = &H80000001

      Private Sub Form_GotFocus()

         Me.Show

         'Check to see if the registry keys for the toolbar exists
         'If not, then save the initial toolbar settings
         Success = RegOpenKey(HKEY_CURRENT_USER, "MyApp", hKey)
         If Success <> 0 Then Toolbar1.SaveToolbar "Test",

            "Toolbar1"

         'Add the toolbars you wish to see in the "Available

         Toolbar1.Buttons.Add , "Copy", , , "Copy"
         Toolbar1.Buttons.Add , "Paste", , , "Paste"

         'Restore the toolbar settings
         DoEvents
         Toolbar1.RestoreToolbar "Test", "MyApp", "Toolbar1"
         DoEvents

         bFormLoad = False

      End Sub

      Private Sub Form_Unload(Cancel As Integer)

         'When the form unloads, save the toolbar settings
         'to HKEY_CURRENT_USER\MyApp
         Toolbar1.SaveToolbar "Test", "MyApp", "Toolbar1"

      End Sub