Çalışma Anında Minimize Buton Eklemek



‘Projeye 1 adet modül ekleyin

‘Formun borderstyle özelliğini 1 yapın

‘Border style özelliği 1 olan formların minimize butonu olmaz



‘Aşağıdakileri modüle kopyalayın



Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

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_MINIMIZEBOX = &H20000

Public Const WS_MAXIMIZEBOX = &H10000



‘Aşağıdakileri forma kopyalayın



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

Private Sub Form_Load()

AddMinimizeButton Me

End Sub