Disable Min,Max and X button in MDI child form

[the_magicien]

I want to disable min,max & X button in MDI child form. I try disable this in not MDI child from and its works but not in MDI child form. I get the code in codeguru web.

Please help.Thanks

[hensa22]

may you have to refresh form,

what is your code?

[HanneSThEGreaT]

the_magicien : You would need to use the following APIs :
GetSystemMenu
EnableMenuItem

[the_magicien]

How do I use that function?

Thanks

[RobDog888]

This will work for the 'x' button and the min/max system menu items of the child form but the titlebar buttons on the child form still seem to function.

The EnableMenuItem API didnt work either for the min/max.

Option Explicit
'WRITTEN BY ROBDOG888
'MDI CHILD FORM
Private Sub Form_Load()
    'REMOVE THE SYSTEM MENU ITEM - CLOSE
    RemoveMenu GetSystemMenu(Me.hwnd, 0), GetMenuItemCount(GetSystemMenu(Me.hwnd, 0)) - 3, MF_BYPOSITION
    'REMOVE THE MENU SEPARATOR
    RemoveMenu GetSystemMenu(Me.hwnd, 0), GetMenuItemCount(GetSystemMenu(Me.hwnd, 0)) - 3, MF_BYPOSITION
    'REMOVE THE SYSTEM MENU ITEM - MAX
    RemoveMenu GetSystemMenu(Me.hwnd, 0), GetMenuItemCount(GetSystemMenu(Me.hwnd, 0)) - 3, MF_BYPOSITION
    'REMOVE THE SYSTEM MENU ITEM - MIN
    RemoveMenu GetSystemMenu(Me.hwnd, 0), GetMenuItemCount(GetSystemMenu(Me.hwnd, 0)) - 3, MF_BYPOSITION
    'NOTE: THE CODE LEAVES THE "NEXT" MENU ITEM WHICH IS FOR ADVANCING TO THE NEXT CHILD FORM
End Sub

Option Explicit
'WRITTEN BY ROBDOG888
'IN A MODULE
Public Declare Function RemoveMenu Lib "user32" ( _
                    ByVal hMenu As Long, _
                    ByVal nPosition As Long, _
                    ByVal wFlags As Long) As Long

Public Declare Function GetSystemMenu Lib "user32" ( _
                    ByVal hwnd As Long, _
                    ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32.dll" ( _
                    ByVal hMenu As Long) As Long

Public Const MF_BYPOSITION      As Long = &H400&

[pragashan]

I want to disable min,max & X button in MDI child form.
Please help.Thanks

If you don't mind, can you tell me why do you want to disable all those buttons.

actually you want to disable for a particular time or you don't want.

[RobDog888]

Probably because they dont want the child forms to be closed or resized seeing that it may allow acess to other child forms either out of turn or create issues in the program if they change child forms without the "Next form" menu.

[TheCPUWizard]

Probably because they dont want the child forms to be closed or resized seeing that it may allow acess to other child forms either out of turn or create issues in the program if they change child forms without the "Next form" menu.

If that is the case, it is a direct violation of the MDI user interfice specifications. The OP should switch to a non-MDI architecture.

[HanneSThEGreaT]

The EnableMenuItem API didnt work either for the min/max.

Hmm, what was I thinking! Man, I give dumb answers sometimes!

OK, I did find a way to Remove the Child form's Minimize & Maximise buttons!

This procedure, Removes the Minimize & Maximze buttons on the Child form, and Disables the Close button on the Child form too.

Option Explicit

Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "User32" _
    Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal lIndex As Long) As Long

Private Declare Function GetSystemMenu Lib "User32" _
    (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "User32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Const MAXIMIXE_BUTTON = &HFFFEFFFF
Const MINIMIZE_BUTTON = &HFFFDFFFF
Const MF_BYPOSITION = &H400
Const GWL_STYLE = (-16)

Enum RemoveMenuEnum
    rmMove = 1
    rmSize = 2
    rmMinimize = 3
    rmMaximize = 4
    rmClose = 6
End Enum


Private Sub Form_Load()
Call pRemoveMenu(Me, rmClose)
Call RemoveChildMenu(Me, rmMaximize)
Call RemoveChildMenu(Me, rmMinimize)
Call RemoveChildMenu(Me, rmSize)
Call RemoveChildMenu(Me, rmMove)
End Sub

Private Sub RemoveChildMenu(ByVal TargetForm _
    As Form, ByVal MenuToRemove As RemoveMenuEnum)

Dim lSysMenu As Long
Dim lStyle   As Long

lSysMenu = GetSystemMenu(TargetForm.hWnd, 0&)
Call RemoveMenu(lSysMenu, MenuToRemove, MF_BYPOSITION)

Select Case MenuToRemove
    Case rmClose
        
        Call RemoveMenu(lSysMenu, MenuToRemove - 1, MF_BYPOSITION)
    Case rmMinimize, rmMaximize
        
        lStyle = GetWindowLong(TargetForm.hWnd, GWL_STYLE)

        If MenuToRemove = rmMaximize Then
            lStyle = lStyle And MAXIMIXE_BUTTON
        Else
            lStyle = lStyle And MINIMIZE_BUTTON
        End If

        Call SetWindowLong(TargetForm.hWnd, GWL_STYLE, lStyle)
End Select
End Sub

Right, now, you can remove them, but, CPUWizard actually brought up a good point too, why is this functionality needed ¿

[pragashan]

I think, if you want to show all those buttons as disabled then only you need codes.

Otherwise you don't need codes for that. You can do that by handling form's properties.

Check These properties.

Form's properties.

1) BorderStyle (It has 5 style)
2) ControlBox (remove all those buttons)
3) MinButton (Disable minimize button)
4) MaxButton (Disable maximize button)

[HanneSThEGreaT]

But can you change those properties' settings at run time ¿ No.

[pragashan]

Can't change in run time, that's why I asked before, he want to do that in a particular time or not.

[selva.spak]

Actually the Normal Form Min, Max & X button will disable using the Control Box = False in Form Property Window, bu i want to know how o diable it for MDI Form not for Child could you pls tell me

thnx

[HanneSThEGreaT]

selva.spak This thread is over 2 years old.............
Please start a new thread, thank you!

I am closing this thread now.

Hannes