أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تصغير و تكبير الفورم Minimize / maximize اكسيل vba

السلام عليكم و رحمة الله و بركاتة اقدم لكم اعزائي كود رائع و ان شاء الله ينال اعجابكم وهو كود تصغير و تكبير ايقونة ا ..



05-02-2021 05:00 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم و رحمة الله و بركاتة 

اقدم لكم اعزائي كود  رائع و ان شاء الله ينال اعجابكم 
وهو كود تصغير و تكبير ايقونة الفورم   Minimize / maximize  في vba اكسيل

و اليكم الكود يعمل على نظام ويندوز و اوفيس 64 bit

Option Explicit
Private Declare PtrSafe Function StartWindow Lib "user32" Alias "GetWindowLongA" ( _
            ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function MoveWindow Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long


Private Const STYLE_CURRENT As Long = (-16)        '// A new window STYLE

'// Window STYLE
Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Minimize button
Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Maximize button

'// Window status
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3

Dim Form_Personalized As Long
Dim STYLE As Long

  
Private Sub UserForm_Activate()
 Form_Personalized = FindWindowA(vbNullString, Me.Caption)
    STYLE = StartWindow(Form_Personalized, STYLE_CURRENT)
    STYLE = STYLE Or WS_CX_MINIMIZAR      '// Minimize button
    STYLE = STYLE Or WS_CX_MAXIMIZAR      '// Maximize button
    MoveWindow Form_Personalized, STYLE_CURRENT, (STYLE)
End Sub


و كود يعمل على نظام و اوفيس 32 bit

Option Explicit
Private Declare Function StartWindow Lib "user32" Alias "GetWindowLongA" ( _
            ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function MoveWindow Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long


Private Const STYLE_CURRENT As Long = (-16)        '// A new window STYLE

'// Window STYLE
Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Minimize button
Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Maximize button

'// Window status
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3

Dim Form_Personalized As Long
Dim STYLE As Long

''CODE_2**********************************

    Form_Personalized = FindWindowA(vbNullString, Me.Caption)
    STYLE = StartWindow(Form_Personalized, STYLE_CURRENT)
    STYLE = STYLE Or WS_CX_MINIMIZAR      '// Minimize button
    STYLE = STYLE Or WS_CX_MAXIMIZAR      '// Maximize button
    MoveWindow Form_Personalized, STYLE_CURRENT, (STYLE)

End Sub


و يتم وضع الكود في اليوزر فورم نفسة 
و اليكم مرفق ملف اكسيل يعمل على نظام 64
و لدي اقتراح من يساهم في تطوير الكود و جزاه الله خير 
وهو عند تصغيراو تكبير يتأثير معها باقي ملحقات اليوزر فورم مثل مربعات النصية و الازرار الخ.. 

اتمنى ان ينال هذا الكود اعجابكم و هذا شيئ بسيط اقدمة لكم 
 
 
  كود لتصغير و تكبير الفورم نظام 64.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(21.424) KB


05-02-2021 05:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تصغير و تكبير الفورم Minimize / maximize اكسيل vba
بارك الله فيك أخي العزيز أحمد فتحي ومشكور على الموضوع المفيد.

06-02-2021 09:20 صباحا
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif تصغير و تكبير الفورم Minimize / maximize اكسيل vba
جزاكم الله خيرا

10-02-2021 10:06 مساء
مشاهدة مشاركة منفردة [3]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تصغير و تكبير الفورم Minimize / maximize اكسيل vba
شكر وتقدير واحترام من اخيك




الكلمات الدلالية
تصغير ، تكبير ، الفورم ، Minimize ، maximize ، اكسيل ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:29 صباحا