How To Put a ComboBox into a Toolbar (153928)



The information in this article applies to:

  • Microsoft Visual Basic Learning Edition for Windows 6.0
  • Microsoft Visual Basic Professional Edition for Windows 6.0
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic Standard Edition, 32-bit, for Windows 4.0
  • Microsoft Visual Basic Professional Edition, 32-bit, for Windows 4.0
  • Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows 4.0
  • Microsoft Visual Basic for Applications 5.0

This article was previously published under Q153928

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.

Modification Type:MinorLast Reviewed:3/15/2005
Keywords:kbControl kbhowto KB153928