Microsoft KB Archive/320684

= How to drag forms by using the client area with Visual Basic .NET or Visual Basic 2005 =

Article ID: 320684

Article Last Modified on 5/11/2007

-

APPLIES TO


 * Microsoft Visual Basic 2005
 * Microsoft Visual Basic .NET 2003 Standard Edition
 * Microsoft Visual Basic .NET 2002 Standard Edition

-



This article was previously published under Q320684



For a Microsoft Visual C# .NET version of this article, see 320687.



For a Microsoft Visual Basic 6.0 version of this article, see 154006.

IN THIS TASK
SUMMARY
 * Introduction
 * Create the Sample



SUMMARY
This step-by-step article describes how to permit a user to move a form by dragging the client area of the form.

back to the top

Introduction
When you design an application, you may want to permit the user to move the form of an application by dragging client area of the form. For example, you may want to do this if the form does not have a title bar or if the form has an irregular (that is, non-rectangular) shape. An example of an application that provides this type of functionality is the Microsoft Windows Media Player. The Media Player permits you to select a &quot;skin&quot; to provide a customized look for the player. When you select a skin, the title bar is hidden and you can move the window by dragging the form itself.

When Microsoft Windows handles mouse activity on a form, Windows sends the WM_NCHITTEST message to the form to determine where mouse events occur. For example, if you click the title bar of a form, the form returns a value of HTCAPTION, which indicates that the mouse event occurs on the title bar. If you click the client area of the form, the form returns a value of HTCLIENT, which indicates that the mouse event occurs in the client area of the form.

When you override the WndProc method of the form, you can intercept the WM_NCHITTEST message and determine where mouse activity on the form occurs. If the activity occurs in the client area, you can return a value of HTCAPTION, which causes Windows to handle the activity as if the activity actually occurs in the title bar.

The following sample code overrides the WndProc method of the form. The code intercepts the WM_NCHITTEST message and determines whether the mouse activity occurs in the client area of the form. If the mouse activity occurs in the client area, the procedure returns a value of HTCAPTION, which causes Windows to handle the event as if it occurs in the title bar. Note that if you override the WndProc method of the form in this manner, the mouse events for the form are also overridden, and any code that those event handlers contain does not execute.

back to the top

Create the Sample
 Create a new Visual Basic .NET or Visual Basic 2005 Windows Application project. By default, Form1 is created.

Note You must change the code in Visual Basic 2005. By default, Visual Basic creates two files for the project when you create a Windows Forms project. If the form is named Form1, the two files that represent the form are named Form1.vb and Form1.Designer.vb. You write the code in the Form1.vb file. The Windows Forms Designer writes the code in the Form1.Designer.vb file. The Windows Forms Designer uses the partial keyword to divide the implementation of Form1 into two separate files. This behavior prevents the designer-generated code from being interspersed with your code.

For more information about the new Visual Basic 2005 language enhancements, visit the following Microsoft Developer Network (MSDN) Web site:

http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx

For more information about partial classes and the Windows Forms Designer, visit the following MSDN Web site:

http://msdn2.microsoft.com/en-us/library/ms171843.aspx

 On the View menu, click Code.  Paste the following code in the Form1 class: Private Const WM_NCHITTEST As Integer = &H84 Private Const HTCLIENT As Integer = &H1 Private Const HTCAPTION As Integer = &H2   Add the following method to the Form1 class: Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_NCHITTEST MyBase.WndProc(m) If (m.Result.ToInt32 = HTCLIENT) Then m.Result = IntPtr.op_Explicit(HTCAPTION) End If        Exit Sub End Select

MyBase.WndProc(m) End Sub

 Save and run the project. Click anywhere in the client area of the form, and then try to drag the form. Note that you can successfully move the form by dragging it from anywhere in the client area or title bar of the form.</li></ol>

back to the top

Keywords: kbvs2005swept kbvs2005applies kbhowtomaster KB320684

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.