Disable min,max, x buttons?

[James Stanich]

I have code which will grey out the x at the top of a MDIForm. Is there away to disable the min and max buttons as well?

[dimava]

you just set the Control Box to false from the properties window

[James Stanich]

There isn't a controlbox property on a MDIform, or am I mistaken?

[dimava]

sorry I made a mistake will you ever forgive me LOL!!!

You can disable the Min and Max buttons just like you would disable the close button.

Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Const MF_BYPOSITION = &H400

Private Sub MDIForm_Load()
    RemoveMenu GetSystemMenu(hWnd, 0), 6, MF_BYPOSITION 'Disable Close
    RemoveMenu GetSystemMenu(hWnd, 0), 4, MF_BYPOSITION 'Disable Maximize
    RemoveMenu GetSystemMenu(hWnd, 0), 3, MF_BYPOSITION 'Disable Minimize
End Sub

[James Stanich]

Dimava:

I wasn't trying to be a smart ass. Thanks anyway.

Megatron:

Thank you once agin for your help.

[James Stanich]

Dimava:

I wasn't trying to be a smart ass. Thanks anyway.

Megatron:

Thank you once again for your help.

[James Stanich]

Megatron:

The x on the MDIform appears gray (Great) but the min and max button still are enabled. I cpoied the code from your post. What am I doing wrong?

Using VB6 Prof. in Win98

[Wak]

Or better yet, clear them all in one call.

Private Declare Function DestroyMenu _
Lib "user32"  ( _
    ByVal hMenu As Long _
) As Long

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


Private Sub Form_Load
DestroyMenu(GetSystemMenu(me.Hwnd, False))
End sub

question:
What is the function to gray out menu's?