A frequent question I see on the forums is how can you drag controls around in a form with the mouse. Drag and drop is a very big and complex subject but this is one subset that can be implemented very quickly in VB. For this sample I’ve created a simple form with Visual Studio and added a TextBox named TextBox1. This sample will work for virtually any control though with a little modification.
To implement this fetaure we need to handle 3 events on the TextBox
We need to handle the Up and Down events so we can record whether or not the user clicked on the TextBox. As opposed to the user clicking elsewhere on the form (or anywhere else on the screen for that matter). In addition to knowing the user clicked on the TextBox we need to also record where the Mouse was when the user Clicked.
This brings up the issue of screen versus client coordinates. Events like MouseMove have a Location property which contains a Point relative to the client. In Client Coordinates 0,0 referes to the top left corner of the control. In Screen Coordinates 0,0 refers to the top left corner of your actual monitor. To do a move we to find the difference in the MousePoints. It’s easier to do this using Screen Coordinates.
Whenever we detect a mouse move event, we need to calculate how much the mouse moved in terms of x and y. Then modify the location of the control by the same amount and the control will be dragable.
Public Class Form1
Private m_mouseHeldOnTextBox As Boolean
Private m_mouseHeldPoint As Point
Private Sub OnTextBoxMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If m_mouseHeldOnTextBox Then
Dim currentPoint As Point = TextBox1.PointToScreen(e.Location)
Dim xDelta As Integer = currentPoint.X – m_mouseHeldPoint.X
Dim yDelta As Integer = currentPoint.Y – m_mouseHeldPoint.Y
TextBox1.Location = New Point(TextBox1.Location.X + xDelta, TextBox1.Location.Y + yDelta)
m_mouseHeldPoint = currentPoint
Private Sub OnTextBoxMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
If (e.Button = Windows.Forms.MouseButtons.Left) Then
m_mouseHeldOnTextBox = True
m_mouseHeldPoint = TextBox1.PointToScreen(e.Location)
Private Sub OnTextBoxMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseUp
m_mouseHeldOnTextBox = False