84 replies to this topic

[kresh7]

How to change the style of the form ?

is it posible to change the form of the form hehehe not always
that quadrat form is it possible to change it ?

[TcM]

So you want something like a circular (circle) form?

[kresh7]

yes anything circle triple ehhehe

[TcM]

Yes I am able to help you.. Let me upload the code.

[kresh7]

ok thx a lot my frend

[TcM]

Welcome Here is the code! It may need a cleanup because it has too much API, but it was taken from a previous project and I don't have time to clean it up.

Attached Files

•  Shape Form.zip   1.84K   122 downloads

[ikkeugh]

What's also good is to make the form 'dragable'
just use this .

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReleaseCapture

    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub

[kresh7]

it dosent work

[TcM]

What doesn't work?

[kresh7]

What's also good is to make the form 'dragable'
just use this .


Code:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReleaseCapture

    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub

TheComputerMaster thx project work but this one not i dont know who made this post

Code:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReleaseCapture

    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub

[ikkeugh]

Just look above the message who made it !!!!!

Why doesn't it work ?
I got it working : just ad the code at (for exemple) the bottom of all the code
I even uploaded it !

Attached Files

•  Shape form.zip   1.98K   19 downloads

[kresh7]

aaa ok thx