Přidání tlačítka Min na Fixed formulář

Postup:
Založte nový projekt. Formuláři nastavte vlastnost BorderStyle na Fixed. Do deklarační části formuláře zapište:

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

Private Function AddMinimizeButton(po_Form As Form)

   Dim ll_Style As Long

   ll_Style = GetWindowLong(po_Form.hwnd, GWL_STYLE)
   Call SetWindowLong(po_Form.hwnd, GWL_STYLE, ll_
    Style Or WS_MINIMIZEBOX)

End Function
  
Na událost Form_Load přidejte volání funkce:
Private Sub Form_Load()

    AddMinimizeButton Me

End Sub

Zpět