[RESOLVED] Form Moveable=False

Printable View

May 23rd, 2009, 10:39 PM
Noob_Coder

[RESOLVED] Form Moveable=False

Hello..

can anyone show me small lines of code that the users are unable to move to form?

i already search on google and i found some code.. but it compose of many-many lines of code and i cant understand... i want a small lines of code... heheh

thnx in advance...
May 23rd, 2009, 10:41 PM
Vectris

Re: Form Moveable=False

Change the "FormBorderStyle" to None
May 23rd, 2009, 11:28 PM
jmcilhinney

Re: Form Moveable=False

Quote:

Originally Posted by Vectris

Change the "FormBorderStyle" to None

That's not really practical if you don't want the form to have no border.

There is no simple way to do this. There is no property that determines whether a form can be moved or not. It takes a bit of code. I'm not sure what you already have but if you follow the CodeBank link in my signature you'll find some code to do this.

Re: Form Moveable=False

class-level:
vb Code:
Dim originalpoint As Point
Dim islocked As Boolean = False
then, in a sub handling Me.LocationChanged:
vb Code:
If islocked Then Me.Location = originalpoint Else originalpoint = Me.Location

May 24th, 2009, 12:32 AM
MicLovin

1 Attachment(s)

Re: Form Moveable=False

Ive came across the same problem awhile ago so to make it easier on me I created a user control. I will provide it in this reply.

Learn from it.... I know not my best work but it gets the job done.
May 24th, 2009, 12:38 AM
jmcilhinney

Re: Form Moveable=False

Quote:

Originally Posted by MicLovin

Ive came across the same problem awhile ago so to make it easier on me I created a user control. I will provide it in this reply.

Learn from it.... I know not my best work but it gets the job done.

I think you've got it the wrong way around. The OP wants the form to be NOT movable and (as far as we're aware) WITH a border.
May 24th, 2009, 12:43 AM
jmcilhinney

Re: Form Moveable=False
Quote:
Originally Posted by minitech

class-level:

vb Code:

Dim originalpoint As Point
Dim islocked As Boolean = False

then, in a sub handling Me.LocationChanged:

vb Code:

If islocked Then Me.Location = originalpoint Else originalpoint = Me.Location
That will get the job done, so kudos for that, but it's a bit of a hack. It doesn't actually stop the form being moved but, rather, it moves the form back to its original location after it moves. As a result you can get an ugly visual effect when dragging the form. Run that code and then try dragging the form around the screen and you'll see that it appears in other locations momentarily, which looks a little unprofessional. It's not really worth allowing an application to look unprofessional to save 20 or 30 lines of code that someone else has already provided for you.

Re: Form Moveable=False

Put this in the form you want to prevent from moving:

vb.net Code:

Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        If (m.Msg = 274) AndAlso (m.WParam.ToInt32() = 61456) Then
            Return
        ElseIf (m.Msg = 161) AndAlso (m.WParam.ToInt32() = 2) Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub

Re: Form Moveable=False

im glad many members reply to my thread... thanks to all you guys...
Quote:
Originally Posted by ForumAccount
Put this in the form you want to prevent from moving:
vb.net Code:
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        If (m.Msg = 274) AndAlso (m.WParam.ToInt32() = 61456) Then
            Return
        ElseIf (m.Msg = 161) AndAlso (m.WParam.ToInt32() = 2) Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub
@ForumAccount: thank you so much sir u solved my problem...+rep

may i know what is
274
61456
161 and
2
stands for?

Re: Form Moveable=False

Quote:
Originally Posted by ForumAccount
Put this in the form you want to prevent from moving:
vb.net Code:
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        If (m.Msg = 274) AndAlso (m.WParam.ToInt32() = 61456) Then
            Return
        ElseIf (m.Msg = 161) AndAlso (m.WParam.ToInt32() = 2) Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub
The only way to improve this is if there was something that also disabled the "Move" option in the ContextMenu that appears when right-clicking the top-left icon.

May 24th, 2009, 06:33 PM
jmcilhinney

Re: Form Moveable=False

Quote:

Originally Posted by JugglingReferee

The only way to improve this is if there was something that also disabled the "Move" option in the ContextMenu that appears when right-clicking the top-left icon.

Which is what the SystemMenuManager in my aforementioned CodeBank thread does.
May 24th, 2009, 07:43 PM
JugglingReferee

Re: Form Moveable=False

Quote:

Originally Posted by jmcilhinney

Which is what the SystemMenuManager in my aforementioned CodeBank thread does.

I swear you've contributed something on every topic that comes up! :thumb: