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-
clicks the Toolbar
the Customize method of the Toolbar is invoked.
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.
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.
Start a new project.
Reference the Microsoft Windows Common Controls (COMCTL32.OCX).
Add a Toolbar and an ImageList to Form1.
Add six images to ImageList1 with the following properties:
NOTE: The Toolbar contains only these three buttons because this is the
layout of the "default" toolbar. The Copy, Paste, and Cut buttons will be
added at run-time so that they will appear in the "Additional Buttons"
Add the following code to Form1:
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long
Const HKEY_CURRENT_USER = &H80000001
Private Sub Form_Load()
'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", "MyApp", _
'Add the toolbars you wish to see in the "Available Buttons" list
Toolbar1.Buttons.Add , "Copy", , , "Copy"
Toolbar1.Buttons.Add , "Paste", , , "Paste"
Toolbar1.Buttons.Add , "Cut", , , "Cut"
'Restore the toolbar settings
Toolbar1.RestoreToolbar "Test", "MyApp", "Toolbar1"
Private Sub Form_Unload(Cancel As Integer)
'When the form unloads, save the toolbar settings
Toolbar1.SaveToolbar "Test", "MyApp", "Toolbar1"
NOTE: If you are using Visual Basic version 6.0, change the following line
in the Form_GotFocus event:
Press the F5 key to run the application. Double-click Toolbar1 to
display the Customize Toolbar dialog. Notice that the Cut, Copy, and
Paste toolbars appear in the Additional Buttons list.
NOTE: The SaveToolbar and RestoreToolbar methods used in this example write
and read the registry entry HKEY_CURRENT_USER\MyApp\Toolbar1.