Disable Close Button and Prevent Form Being Moved

[jmcilhinney]

Hi jm!

Your work is great it helps me alot and I implemented it in my apps.

I have a main form (not MDI) a treeview menu when user clicked a certain menu it opens another form on top of the main form. Whenever i click the icon of the form found in the start bar the form will minimized but when I click it again I was expecting that it would display it back but it is not restoring. I even tried right click then maximize or restore and its not working. Is it possible that whenever I click the icon in the start bar it will not minimize?

Are you saying that your second form is using my FormImmobiliser class and it won't restore after being minimised?

[Simply Me]

Yes. My second form uses your FormImmobiliser class. My second form BorderStyle is FixedToolWindow. Whenever I click the form's name in the task bar it automatically minimizes and when I right click and choose restore or maximize it is not restoring.

[jmcilhinney]

Yes. My second form uses your FormImmobiliser class. My second form BorderStyle is FixedToolWindow. Whenever I click the form's name in the task bar it automatically minimizes and when I right click and choose restore or maximize it is not restoring.

I've changed the code for the FormImmobiliser class. Download the new version from post #1 and see if that addresses the issue.

[Simply Me]

Great it works now!

Thanks!

[Always_Confused]

Hi JM

I am using both of your classes after loading a form (frmSixQs) from a child form (frmProfiles). All runs as expected, except when I click off the form (frmSixQs), it closes.

How do I make my form focused exclusively until the user closes it intentionally?

[jmcilhinney]

Hi JM

I am using both of your classes after loading a form (frmSixQs) from a child form (frmProfiles). All runs as expected, except when I click off the form (frmSixQs), it closes.

How do I make my form focused exclusively until the user closes it intentionally?

That doesn't sound like anything that would be caused by my code but I'll run some tests just to make sure.

[jmcilhinney]

Hi JM

I am using both of your classes after loading a form (frmSixQs) from a child form (frmProfiles). All runs as expected, except when I click off the form (frmSixQs), it closes.

How do I make my form focused exclusively until the user closes it intentionally?

I tested my classes with all combinations of Show and ShowDialog with 1, 2 and 3 forms and saw no such behaviour, so I can only assume that it's something to do with your own code. What happens if you remove my classes? Do you still see that behaviour?

[obi1kenobi]

The SystemMenuManager class doesn't seem to have any effect on the close button of a FixedToolWindow form. Problem encountered in Windows Vista SP1. I tried setting the SMM both to disable and to remove the close button, with absolutely no effect whatsoever. Here's the declaration:

Private smm As New SystemMenuManager(Me, SystemMenuManager.MenuItemState.Removed)

For now, I've set the ControlBox property to False, however I'd also like to block the Alt + F4 key combination, which seems to work, albeit erratically. I will explore the problem further and attempt to narrow down the source of the problem. I'll keep you posted as best I can, given my poor internet connection.

[jmcilhinney]

The SystemMenuManager class doesn't seem to have any effect on the close button of a FixedToolWindow form. Problem encountered in Windows Vista SP1. I tried setting the SMM both to disable and to remove the close button, with absolutely no effect whatsoever. Here's the declaration:

Private smm As New SystemMenuManager(Me, SystemMenuManager.MenuItemState.Removed)

For now, I've set the ControlBox property to False, however I'd also like to block the Alt + F4 key combination, which seems to work, albeit erratically. I will explore the problem further and attempt to narrow down the source of the problem. I'll keep you posted as best I can, given my poor internet connection.

I probably never tested that scenario. I'll have a look myself too, when I get the chance. Out of town visiting my dad for this Australia Day long weekend. Submitting this using his brand new Internet connection.

[Matchlighter]

What Is the value of the Size menu Item? I would like to disable form sizing but, I need to have it have a sizable border style? I hope I didn't pass over it while scanning the forum. I have tried Googleing it but, that results in "Set the border style to something with Fixed in it."

Thanks!
E

[harshada1]

Hi,

I was using your formImmobiliser.vb class only since i use vb .net 2005.
Then i declared Dim frmMove As New FormImmobilisre(Me) in 'declarations' region. That's it?
but it doen't work properly. where to declare dim statement and anything else to do?
form will move only upwards (no left, right, down).
can you give code sample how to use your class?

[VBNetDude]

The SystemMenuManager class doesn't seem to have any effect on the close button of a FixedToolWindow form. Problem encountered in Windows Vista SP1. I tried setting the SMM both to disable and to remove the close button, with absolutely no effect whatsoever. Here's the declaration:

Private smm As New SystemMenuManager(Me, SystemMenuManager.MenuItemState.Removed)

For now, I've set the ControlBox property to False, however I'd also like to block the Alt + F4 key combination, which seems to work, albeit erratically. I will explore the problem further and attempt to narrow down the source of the problem. I'll keep you posted as best I can, given my poor internet connection.

I'm having the same trouble on Windows XP. Everything works great! Thank you very much! I'll take a look at things and report if I find anything to make it work with fixed tool windows.

[medsont]

myMenuManager = New SystemMenuManager(_handle, True, SystemMenuManager.MenuItemState.Enabled)

oh my god i can't enabled my close button

[jmcilhinney]

myMenuManager = New SystemMenuManager(_handle, True, SystemMenuManager.MenuItemState.Enabled)

oh my god i can't enabled my close button

Um, huh? The Close button is enabled by default, so you don't have to do anything to enable it. The whole point of this thread is to disable it. Are you saying, without actually saying, that you have already disabled it and then you want to re-enable it at some point?

[RobDog888]

Sounds like its being disabled but they are not able to re-enable it. Since its probably a coding issue not directly related I would suggest posting a new thread in the VB.NET forum and link/reference this codebank thread so all can assist you better.

[medsont]

ok Thank you Mr.SuperModerator.....

[Zaxxan]

Hi, I know this is an old thread but I was hoping someone could help me. I am using the Form Immobilizer and it is working great. What I would like to know is if it is possible to enable/disable the feature during run time or by changing a setting in an ini file?

Thanks

[jmcilhinney]

Hi, I know this is an old thread but I was hoping someone could help me. I am using the Form Immobilizer and it is working great. What I would like to know is if it is possible to enable/disable the feature during run time or by changing a setting in an ini file?

Thanks

This is the part that actually stops the form moving:

Protected Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = WM_MOVING Then
        Marshal.StructureToPtr(New RECT(Me.target.Bounds), _
                               m.LParam, _
                               False)
        m.Result = New IntPtr([TRUE])
    End If

    MyBase.WndProc(m)
End Sub

If you want to allow the form to move then all you need to do is not execute that bit of code. It's already in an If block so all you have to do is add a flag to that If statement that can be set from outside, e.g.

Public Property CanMove As Boolean
 
Protected Overrides Sub WndProc(ByRef m As Message)
    If Not CanMove AndAlso m.Msg = WM_MOVING Then
        Marshal.StructureToPtr(New RECT(Me.target.Bounds), _
                               m.LParam, _
                               False)
        m.Result = New IntPtr([TRUE])
    End If
 
    MyBase.WndProc(m)
End Sub

[Zaxxan]

That's brilliant.

Thanks