The new vbAccelerator Site - more VB and .NET Code and Controls
Source Code
1 VB 5 Custom Controls &nbsp


NOTE: this code has been superceded by the version at the new site.



&nbsp

Creating drop-down tool windows

Use a PictureBox along with this class to emulate the Word 97 Toolbar's Table Picker

Demonstrating drop down tool windows

Download the Drop Down Tool Window Class and Demo (22kb)
Download the vbAccelerator Toolbar with Drop Down Tool Window sample (39kb)

&nbsp Before you Begin &nbsp
&nbsp This project requires the SSubTmr.DLL component. Make sure you have loaded and registered this before trying the project. &nbsp
&nbsp The toolbar demonstration project uses the vbAccelerator toolbar and the vbAccelerator Image List controls. Download and register these before trying this sample. &nbsp

Overview
One feature I've been trying to achieve since I first discovered you could write API declares in VB3 (oops, showing my age here...) is a drop-down tool window you can show in response to a button or tool bar button click. These windows have been increasing in number in the Office series of tools and they are a really nice addition to a user interface.

This sample provides a neat class which allows you to convert any PictureBox or Control on a form into a drop-down tool window. As a demonstration of the technique, the class is used to implement a Word 97 table picker tool window.

How it Works This drop-down window method uses the same technique as a Windows drop-down combo box does to display its drop-down portion. The drop-down portion is made to be a child of the Windows desktop. This allows the tool window portion to be drawn outside the boundaries of its owner form, as shown in the picture above.

Here is the code used to convert a standard control to a drop-down window and then show it. The comments in this code describe the steps you have to take to make the box work like a drop-down window:

Public Sub Show(ByVal x As Long, ByVal y As Long)
Dim tP As POINTAPI
Dim hWndDesktop As Long
Dim lStyle As Long
Dim lhWnd As Long
Dim lParenthWNd As Long

&nbsp &nbsp ' Make sure the picture box won't appear in the
&nbsp &nbsp ' task bar by making it into a Tool Window:
&nbsp &nbsp ' See my article Set the Show In Taskbar property at run time for details.

&nbsp &nbsp lhWnd = DropDownObject.hwnd
&nbsp &nbsp lStyle = GetWindowLong(lhWnd, GWL_EXSTYLE)
&nbsp &nbsp lStyle = lStyle Or WS_EX_TOOLWINDOW
&nbsp &nbsp lStyle = lStyle And Not (WS_EX_APPWINDOW)
&nbsp &nbsp SetWindowLong lhWnd, GWL_EXSTYLE, lStyle

&nbsp &nbsp ' Determine where to show it in Screen coordinates:
&nbsp &nbsp tP.x = x \ Screen.TwipsPerPixelX: tP.y = y \ Screen.TwipsPerPixelY
&nbsp &nbsp lParenthWNd = DropDownObject.Parent.hwnd
&nbsp &nbsp ClientToScreen lParenthWNd, tP

&nbsp &nbsp ' Make the picture box a child of the desktop (so
&nbsp &nbsp ' it can be fully shown even if it extends beyond
&nbsp &nbsp ' the form boundaries):
&nbsp &nbsp SetParent lhWnd, hWndDesktop

&nbsp &nbsp ' Show the object:
&nbsp &nbsp SetWindowPos lhWnd, lParenthWNd, tP.x, tP.y, _
&nbsp &nbsp &nbsp &nbsp DropDownObject.Width \ Screen.TwipsPerPixelX, DropDownObject.Height \ Screen.TwipsPerPixelY, _
&nbsp &nbsp &nbsp &nbsp SWP_SHOWWINDOW

&nbsp &nbsp ' Tell VB it is shown:
&nbsp &nbsp DropDownObject.Visible = True
&nbsp &nbsp DropDownObject.ZOrder

&nbsp &nbsp ' Try to set focus:
&nbsp &nbsp SetFocusAPI lhWnd

&nbsp &nbsp ' Capture all mouse messages.
&nbsp &nbsp SetCapture lhWnd

&nbsp &nbsp ' Start subclassing for Alt-tab
&nbsp &nbsp ' See Subclassing without the crashes and
&nbsp &nbsp ' Detecting when another application is activated for more details

&nbsp &nbsp m_hWndForm = lParenthWNd
&nbsp &nbsp m_hWndObject = lhWnd
&nbsp &nbsp AttachMessage Me, m_hWndForm, WM_ACTIVATE

&nbsp &nbsp ' Store a flag saying we're shown:
&nbsp &nbsp m_bShown = True

End Sub

Using the cDropDownToolWindow Class
First, create an instance of the control or UserControl you want to turn into a drop down window, and then make it invisible.

Before using the window, call the Create method and pass in the control. Note your control must have a hWnd property to work as tool window.

When you want to show the window, call the Show method. Now all mouse events will be directed to your control. The standard method of handling a drop-down window is to initially keep the window open until at least the MouseDown event occurs. Then if the mouse is outside the window you cancel and hide it, or if it is inside you keep working until the MouseUp occurs, when it is also hidden and cancelled if the mouse was off the control.

You can use the InRect method to determine if the mouse is currently over the control and the Hide method to clear the form. A helper function Resize is also provided to allow you to modify the width and height of the tool window whilst it is shown.

Finally, when your application unloads, call the Destroy method to clear up the window.

Limitations to the Method
This version does not support using the keyboard in your tool window. This limitation can be worked around using a windows hook, which is the subject of a forthcoming article (expected February 1999) in the Code Library section.

&nbsp
&nbsp


TopBack to top
Source Code - What We're About!Back to ActiveX Control Source Code
Source Code - What We're About!Back to Source Code

&nbsp


NOTE: this code has been superceded by the version at the new site.



AboutContributeSend FeedbackPrivacy

Copyright 1998-1999, Steve McMahon ( steve@vbaccelerator.com). All Rights Reserved.
Last updated: 13 August 1999