Drag Window - Without Using API

• Download source files - 15.54 KB
• Download demo project - 13.43 KB

Introduction

In this article, you can learn how to drag a window having no title bar without using Windows API or other functions.

This article is useful to those of my fellow programmers who are tired of the ever to move no frame window on the screen. Well, here is something that might give you relief from that... something for a change!!! I had written this code some time back and hope some of you will find some use for it.

Background

While making one of my applications, I needed some functions which could move the window. But Visual Studio doesn't provide us with any such tools. So I wrote all the functions on my own because I did not want to use any of the APIs.

Using the Code

Mouse Events

MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     
MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Variables

• CurrX, CurrY as Single

Function

Private Function DragWindow(Button As Integer, X As Single, Y As Single)
If Button = 1 Then
    Me.Left = Me.Left + (X - CurrX)
    Me.Top = Me.Top + (Y - CurrY)
End If
End Function

History

• 12-Aug-2005 - Initial release of the article