[RESOLVED] Form Moveable=False

[Noob_Coder]

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...

[Vectris]

Change the "FormBorderStyle" to None

[jmcilhinney]

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.

[minitech]

class-level:

Dim originalpoint As Point
Dim islocked As Boolean = False

then, in a sub handling Me.LocationChanged:

If islocked Then Me.Location = originalpoint Else originalpoint = Me.Location

[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.

[jmcilhinney]

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.

[jmcilhinney]

class-level:

Dim originalpoint As Point
Dim islocked As Boolean = False

then, in a sub handling Me.LocationChanged:

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.

[ForumAccount]

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

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

[Noob_Coder]

im glad many members reply to my thread... thanks to all you guys...

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

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?

[JugglingReferee]

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

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.

[jmcilhinney]

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.

[JugglingReferee]

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

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