تصغير اليوسرفورم

[نايف - م]

يا أخوة

هذا الكود من المنتدى و هو لتصغير اليوسرفورم

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const SW_SHOWMAXIMIZED = 3
Private Sub UserForm_Activate()
Dim lFormHandle As Long, lStyle As Long
lFormHandle = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(lFormHandle, GWL_STYLE)
lStyle = lStyle Or WS_SYSMENU
lStyle = lStyle Or WS_MINIMIZEBOX
lStyle = lStyle Or WS_MAXIMIZEBOX
SetWindowLong lFormHandle, GWL_STYLE, (lStyle)
DrawMenuBar lFormHandle
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

يتم التصغير للزاوية السفلية اليسرى من الشاشة

هل يمكن تغيير هذه الزاوية بحيث يتم تصغير اليوسرفورم لأعلى الشاشة

و شكرا

[نايف - م]

وين المشكلة

لا يمكن أرفاق ملف !!!

تم تعديل سبتمبر 16, 2015 بواسطه نايف - م

[جعفر الطريبق]

التعديل التالي تقوم بتصغير اليوسرفورم الزاوبة العليا اليسرى للشاشة

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const SW_SHOWMAXIMIZED = 3

Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private lFormHandle As Long

Private Sub UserForm_Activate()
    Dim lStyle As Long
    lFormHandle = FindWindow("ThunderDFrame", Me.Caption)
    lStyle = GetWindowLong(lFormHandle, GWL_STYLE)
    lStyle = lStyle Or WS_SYSMENU
    lStyle = lStyle Or WS_MINIMIZEBOX
    lStyle = lStyle Or WS_MAXIMIZEBOX
    SetWindowLong lFormHandle, GWL_STYLE, (lStyle)
    DrawMenuBar lFormHandle
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Resize()
     If IsIconic(lFormHandle) Then
        Me.Move 0, 0, 0, 0
     End If
End Sub

 

[ياسر خليل أبو البراء]

أخي الحبيب جعفر

بسم الله ما شاء الله

لكم يسعدني دائماً وأبداً أن أرى إبداعاتك المتميزة

عمل في منتهى الروعة والجمال