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
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