كود تصغير وتكبير الفورم ليتناسب مع مختلف جميع الشاشات للكمبيوتر

[مصطفى محمود مصطفى]

السلام عليكم 

اساتذتنا الافاضل المرفق فيه شاشة دخول وفورم مؤقت وفورم للانتقال الى اوراق العمل

صادفتني مشكلة اثناء العمل على البرنامج في المدرسة طبعا قياس الشاشة اصغر من قياس شاشة

الحاسوب الشخصي فاصبح الفورم لايظهر بالكامل وكذلك اوراق العمل لاختلاف قياس الشاشة بين الاثنين

هل يمكن عمل ذلك من خلال  كود يقوم في التحكم بالفورم حسب قياس الشاشة التي نعمل عليها  

جزاكم الله خيرا وبارك الله بكم

تحياتي

 

 

كود للفورم حيث يناسب جميع الشاشات لجميع أجهزة الكمبيوتر.rar

[ياسر العربى]

تفضل اخي

اذا كنت تريد كل الفورم الموجودة طبق ما بفورم شاشة الدخول

كود للفورم حيث يناسب جميع الشاشات لجميع أجهزة الكمبيوتر.rar

[مصطفى محمود مصطفى]

السلام عليكم

الاخ العزيز ياسر العربي جزاكم الله خيرا

ما شاء الله عليك ,  اضافة رائعة تسلم ايدك

الله يحفظكم من كل سوء

تحياتي

[مصطفى محمود مصطفى]

السلام عليكم

اخي العزيز ياسر العربي اشكركم لتعاونكم معي

ارفق الملف بعد الاضافة لبقية الفورم الموجود بالملف يحدث خطأ

ارجو مساعدتي لتصحيح الخطا

بارك الله بكم

 

كود للفورم حيث يناسب جميع الشاشات لجميع أجهزة الكمبيوتر.rar

[ياسر العربى]

الخطأ ان الكود فعلا يوجد به حدث تنشيط الفورم وانت ضفت الحدث مرتين والصح انك تضيف ما بداخل الحدث الى الحدث الموجود فعلا كما بالصورة

 

 

كود للفورم حيث يناسب جميع الشاشات لجميع أجهزة الكمبيوتر.rar

[مصطفى محمود مصطفى]

السلام عليكم

الاستاذ ياسر العربي حفظكم الله واثابكم

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

الفورم يعمل حاليا جزاكم الله خيرا

[وجدي الحاج علي]

شكرا لكم اخوتي على الاضافة الرائعة

[أبو قاسم]

هل يوجد كود  يقوم بتثبيت الفورم من تحريكة بواسطة الماوس يمين يسار  اذا  كان الفورم مثبيت يكون افضر

[ياسر العربى]

وهل الفورمات التي بداخل الملف يتم تحريكها ؟؟؟؟؟؟!!!!

[أبو قاسم]

نعم

[ياسر العربى]

اخي حمل اخر ملف مرفق وسترى بنفسك

كود للفورم حيث يناسب جميع الشاشات لجميع أجهزة الكمبيوتر.rar

[أبو قاسم]

اي جزء من الكود يقوم بتثبيت الفورم   لو توضح لي جزاك الله خير 

[أبو قاسم]

وجدة كود جميل لتثبيت الفورم جزاك الله خير وهو

Private Sub UserForm_Layout()
    Application.ScreenUpdating = False
    Me.Left = 0
    Me.Top = 0
    Application.ScreenUpdating = True
  
End Sub
 

[ياسر العربى]

تفضل الكود الموجود هو المسئول عن اخفاء الشريط العلوي وعدم تحريك الفورم

fixform.rar

طريقة بسيطة للتثبيت ايضا

fixform.rar

[أبو قاسم]

شكر جزاك الله خير

[ياسر العربى]

بالفعل ارفقت مثال نفس كلامك