دکمه مینیمم

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • kazem1359

    • 2018/06/08
    • 331
    • 39.00
    #1

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

    سلام چطور می تونم برای یوزر فرم دکمه مینیمم داشته باشم. ممنون
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      سلام دوست عزیز
      این کدها رو داخل یوزرفرمتون اضافه کنید
      کد:
      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

        کامنت

        قبلی template بعدی
        چند لحظه..