----

----
NEWS
Omega2 - $5 Linux Computer
Another developer board has a kickstarter campaign that has already surpassed its original goal. The Omega2 with built in Wi-Fi for IoT
Read more..
SHOUT
A bit of Nostalgia
Take a brief look at how the site has evolved over the years and try not to get too emotional.
Read more..
NEWS
Windows 10 Anniversary Update
Wahoo. Windows 10 is getting a big update tomorrow 2nd August which they are calling the Anniversary update.
Read more..
NEWS
A Billion Apples
Apple have announced that they've sold - wait for it - 1 BILLION iPHONES since its launch back in 2007.
Read more..
NEWS
Still want to upgrade to Windows 10?
If you missed the deadline for the free Windows 10 upgrade offer don't worry, you still have a chance to get it - with conditions.
Read more..

----

----

----
User avatar Move Form With Mouse Drag
smashapps Sat Dec 12, 2015 4:47 am
Hey All,

I have re made the tutorial Move Form With Mouse Drag, so that it works in Visual Studio 2015.

https://www.youtube.com/watch?v=Q8N9LYqNzIc

Code: Select all
Public Class frmMain
 
    Public BeingDragged As Boolean = False
    Public MouseDownX As Integer
    Public MouseDownY As Integer
 
    Private Sub frmMain_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
        If e.Button = MouseButtons.Left Then
            BeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub
 
    Private Sub frmMain_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        If BeingDragged = True Then
            Dim tmp As Point = New Point()
 
            tmp.X = Me.Location.X + (e.X - MouseDownX)
            tmp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = tmp
            tmp = Nothing
        End If
    End Sub
 
    Private Sub frmMain_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
        If e.Button = MouseButtons.Left Then
            BeingDragged = False
        End If
    End Sub
 
End Class


This can easily be modified to use on controls within the form, so you can move around controls at run time by moving the mouse.

If you want any help feel free to ask.

Please +rep if you liked the tutorial.

----


cron