make a porton of the form "draggable"

[nabeels786]

I decided to manually skin my app:



The top bar, I don't know how to make it so when you hold your mouse on it, you can adjust it.

Any ideas?
It's a ShapeBox, and the images on top are image boxes. I can make adjustments easily. Thanks

[peet]

Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngReturnValue As Long
    If Button = vbLeftButton Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _
        HTCAPTION, 0&)
    End If
End Sub

makes it possible to move a form without a titlebar.

you need a hwnd, the shape and the images do not have that... not sure how to solve that..

you could paint the title bar onto the form directly, then you could use the sample above directly

[nabeels786]

hmm thanks, ill play with it and see what i can do

[peet]

do that

nice skinning btw

[nabeels786]

thanks

i decided to put it in a label, i expanded it to its big enough, didnt do anything when i tried to drag it, it just snaps to the mouse position. the drag events are only if something is dragged over it right? or is the oledrag? i havent used vb in a while..lol

[peet]

I was thinking more like the attached project shows.

(I cheated a lot )

[peet]

urk... was a bit bigger than expected...

here, I uploaded it : http://www.pvp.no/vbw/move a boarderless form.zip

[nabeels786]

ohhhhhhhhhhhhhhh i see what you mean now. lemme try that out

[nabeels786]

alrighty, sweet it working, thanks man

[peet]

yay!

[peet]

How did you skin those buttons? or is it pictureboxes ?

[nabeels786]

picture boxes
i made the images in fireworks, and then just added them in

the frames were shapes, and i just added the text in.

[crptcblade]

Originally posted by peet
makes it possible to move a form without a titlebar.

you need a hwnd, the shape and the images do not have that... not sure how to solve that...

I guess this is solved already, but I just thought I'd point out that only the form/control to be dragged needs an hWnd. The control you are using to drag it only needs to have a MouseMove event. You're still stuck on the shape control, since it doesn't have any events at all, but you can do this...

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngReturnValue As Long
    If Button = vbLeftButton Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _
        HTCAPTION, 0&)
    End If
End Sub

...with an imagebox and it will work.

[nabeels786]

thanks blade. i did the code onto the imagebox that's the background nad then the label which is the title, so if you click in "idle" space itll be moveable

thanks guys