HOWTO: Put a ComboBox into a Toolbar

• Microsoft Visual Basic Learning, Professional, and Enterprise Editions for Windows, version 6.0
• Microsoft Visual Basic Standard, Professional, and Enterprise Editions, 32-bit only, for Windows, version 4.0
• Microsoft Visual Basic for Applications version 5.0

SUMMARY

This article describes how to use the Toolbar control in the 32-bit version of Visual Basic 4.0 to allow programmers to add buttons to the Toolbar but not ComboBoxes. If you create a ComboBox at design time and place it on top of the Toolbar, the ComboBox will not appear when the program is run. This behavior occurs because the Toolbar has a higher precedence than the ComboBox on the Z-order.

To put a ComboBox on a Toolbar, create a button on the Toolbar to act as a place holder, and position the ComboBox above the place holder in the Z-order, because you cannot place the ComboBox inside the place holder directly.

The following code sample showing how this effect can be achieved.

MORE INFORMATION

1. Start a new Visual Basic project. Form1 is created by default.



2. Place a ComboBox on the form.



3. Place a Toolbar on the form.



4. Add the following code to the Form1 code window:

   
      Option Explicit
   
      Private Sub Form_Load()
         Dim btn As Button
         Me.Show
         Set btn = Toolbar1.Buttons.Add()
         btn.Style = tbrSeparator
         Set btn = Toolbar1.Buttons.Add()
         btn.Style = tbrPlaceholder
         btn.Key = "ComboBox"
         btn.Width = 2000
   
         DoEvents
   
         With Combo1     
            .ZOrder 0
            .Width = Toolbar1.Buttons("ComboBox").Width
            .Top = Toolbar1.Buttons("ComboBox").Top
            .Left = Toolbar1.Buttons("ComboBox").Left
         End With
      End Sub
    




5. Press the F5 key to run the project. The Form should load with a ComboBox in the Toolbar.

Additional query words: kbVBp400 kbVBp600 kbVBp kbdsd kbDSupport kbControl

Keywords : kbVBp kbVBp400 kbVBp500 kbVBp600 kbGrpVB kbDSupport kbControl
Version : WINDOWS:4.0,5.0,6.0
Platform : WINDOWS
Issue type : kbhowto