Disable application maximize button

convexcube

Hi everyone,

Now that I've found a way to disable the ribbon etc. I need to disable the application maximize button. I have looked at this post and implemented it, but it disables the close and minimize buttons as well. Is there a simple command I can use to disable just this button or any way I can adapt the cited post to do just that?

Kind regards,

Ken.

ADezii

Try this code in a Standard Code Module, then Call the Function:

Expand|Select|Wrap|Line Numbers

 Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
 
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 nIndex As Long) As Long

Expand|Select|Wrap|Line Numbers

 
Function DisableMAXIMIZE() As Long

Dim hMenu As Long

Dim lStyle As Long

Dim Lhwnd As Long
 
Lhwnd = Access.Application.hWndAccessApp
 
'Disable MAXIMIZE button

lStyle = GetWindowLong(Lhwnd, GWL_STYLE)

lStyle = lStyle And Not WS_MAXIMIZEBOX
 
Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)

End Function

convexcube

Thanks ADezii, works a treat. Much Appreciated, Ken

ADezii

@convexcube
Glad it worked for you.

Disable application maximize button

Post your reply

Similar topics

Question stats

	Ask Question
Home Questions Articles Browse Topics Latest Top Members FAQ