Making a form moveable

[Walter100]

I know you can make a form moveable by setting moveable to true. However if you make the control box property false and delete the caption then at runtime you cant make the form moveable is there a way I can make a form moveable through code?

[IROY55]

Here's what's involved:

Option Explicit
 
Public Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
 
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Public Sub DragForm(frm As Form)
'=================================
On Local Error Resume Next
 
    Call ReleaseCapture
    Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
 
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'================================================
    If Button = vbLeftButton Then
        Call DragForm(Me)
    End If
 
End Sub

[Ruku]

I'm not sure, but I think you can simply use the

With (Form)
.Top
.Left
End With

To modify the position...

Originally posted by Walter100
I know you can make a form moveable by setting moveable to true. However if you make the control box property false and delete the caption then at runtime you cant make the form moveable is there a way I can make a form moveable through code?

[DiGiTaIErRoR]

A simple way is:

public mX, mY

in the mousemove event:

if button = 1 then move left+x-mx, top+y-my

in the mousedown event

mx = x
my = y

[Walter100]

I inserted the code into a new project and received errors

[DiGiTaIErRoR]

Try my code.

[IROY55]

Change all Public declarations to Private and run it.

[Walter100]

never mind I have gotten it to work thanks everyone

[Walter100]

Yours works digital error thanks

[DiGiTaIErRoR]

You're welcome.

[Megatron]

Try

Dim OldX As Single
Dim OldY As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        OldX = X
        OldY = Y
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then Move Left + (X - OldX), Top + (Y - OldY)
End Sub