[حل شده] دکمه مینیمم

[kazem1359]

سلام چطور می تونم برای یوزر فرم دکمه مینیمم داشته باشم. ممنون

[Amir Ghasemiyan]

سلام دوست عزیز
این کدها رو داخل یوزرفرمتون اضافه کنید

Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const C_USERFORM_CLASSNAME = "ThunderDFrame"


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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    


Private Sub UserForm_Initialize()


Dim UFHWnd As Long
Dim WinInfo As Long
Dim R As Long


UFHWnd = FindWindow(C_USERFORM_CLASSNAME, Me.Caption)
If UFHWnd = 0 Then Exit Sub


WinInfo = GetWindowLong(UFHWnd, GWL_STYLE)
WinInfo = WinInfo Or WS_MINIMIZEBOX
R = SetWindowLong(UFHWnd, GWL_STYLE, WinInfo)


End Sub