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



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







  • غير مجابة
05-02-2021 05:00 مساءً
السلام عليكم و رحمة الله و بركاتة

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

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

CODE
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

CODE
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 مرات التحميل :(14)
الحجم :(21.424) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، أباالحسن، خالد الشاعر، hassona229، abouelhassan، noureddine70،



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

أثارت هذه المشاركة إعجاب: fathy، أباالحسن، noureddine70،



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

أثارت هذه المشاركة إعجاب: YasserKhalil، fathy، noureddine70،



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

أثارت هذه المشاركة إعجاب: YasserKhalil، fathy، noureddine70،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تكبير وتصغير ووضع يوزرفورم على شريط الادوات والتحكم بإغلاقة محمود ابو الدهب
48 7637 EM_ACC
كيفة تكبير اي ليست في الشيت mmagedmemo
5 807 YasserKhalil
تكبير الخط فى القائمة المنسدلة zaki123
3 1343 YasserKhalil
تكبير حجم الخط فى قائمة data validation طائع
6 5011 YasserKhalil
تكبير الخط للفجوال بيزك والتحكم فى مكان الكتابة للبحث عن الاسم مجدى يونس
6 1731 مجدى يونس

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








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

الساعة الآن 04:39 PM.