Remove Min/Max Buttons From an MDI Form

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

I previously had a lot of trouble finding code to deal with this on an MDI Form in VB6. There were samples to disable the close button, but those didn't port correctly for the SC_MINIMIZE/SC_MAXIMIZE. The following code uses basic API calls to intercept window creation and change styles. Works under XP in VB6 SP5.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Const GWL_STYLE = (-16) Public Const WS_MAXIMIZEBOX = &H10000 Public Const WS_MINIMIZEBOX = &H20000

Code: