• Home
 · 
• Custom Controls/Forms/Menus
 · 
• TO make the maximum, minimum and close buttons invisible at runtime in any form

TO make the maximum, minimum and close buttons invisible at runtime in any form

TO make the maximum, minimum and close buttons invisible at runtime in any form

API Declarations


'add the following code in the declaration section of any form
'this can be used for any form including mdi form

#If Win32 Then

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

#Else
Declare Function SetWindowLong Lib "User" (ByVal hwnd As Integer, _
ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "User" (ByVal hwnd As Integer, _
ByVal nIndex As Integer) As Long

#End If

Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000
'------------------------



Rate TO make the maximum, minimum and close buttons invisible at runtime in any form

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'add the following code in the form load event of any form
Private Sub Form_Load()
Dim l As Long
    l = GetWindowLong(Me.hwnd, GWL_STYLE)
    l = l And Not (WS_SYSMENU)
    l = SetWindowLong(Me.hwnd, GWL_STYLE, l)
End Sub