اذهب الي المحتوي
أوفيسنا

ملاءمة عناصر النموذج في وضع ملأ الشاشة


الردود الموصى بها

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله.

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

و نستطيع أن نتجاوز هذه المشكلة باستعمال الطريقة التالي:

نقوم بإنشاء وحدة نمطية جديدة و نلصق بها الكود التالي:

Function salah(frm As Form)
On Error Resume Next
Dim x, y, x1, y1 As Integer
Dim moyH, moyW As Double
Dim obj As Control
Dim str As String
x = frm.InsideHeight   'ارتفاع النموذج قبل التكبير
y = frm.InsideWidth ' عرض النموذج قبل التكبير
DoCmd.Maximize
x1 = frm.InsideHeight    'ارتفاع النموذج بعد التكبير
y1 = frm.InsideWidth   ' عرض النموذج بعد التكبير
moyH = x1 / x 'معامل الإرتفاع
moyW = y1 / y ' معامل العرض


For Each obj In frm.Controls
With obj
.Left = .Left * moyW
.Top = .Top * moyH
.Width = .Width * moyW
.Height = .Height * moyH
.FontSize = .FontSize * moyH

End With
Next
End Function

و أيضا أضف هذا الكود في حدث عند التحميل للنموذج:

salah Me

و لا تنسى أن تغير خاصية النموذج منبثق إلى نعم

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

و الله هو الموفق.

تكبير العناصر مع ملأ الشاشة لنموذج.rar

  • Like 11
رابط هذا التعليق
شارك

4 ساعات مضت, عبد الله قدور said:

لسلام عليكم

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

مرحبا بك أستاذ عبد الله . و مشكور على هذه المداخلة.

لكن لو تلاحظ أخي عبد الله أنه عند إستخدام الإرتساء فإن الفراغات بين العناصر تزول و لا تظهر بالشكل الذي نريده

رابط هذا التعليق
شارك

8 ساعات مضت, ali2017 said:

شوف كدا ايه مشكلة الفورم   دا

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

لاحظ شكله الآن بعد التعديل قم بتكبير و تصغير النموذج و لاحظ جيدا الفرق

form.rar

  • Like 2
رابط هذا التعليق
شارك

26 دقائق مضت, حلبي said:

هلا وغلا  اخونا صالح / حياك الله

يعطيك الف عافية 

ايوه اتحفنا بافكارك الجميلة

تسلم اناملك

مرحبا بك أخي حلبي شكرا لك

رابط هذا التعليق
شارك

المعلومات فى هذا الموضوع قيمه جدا جدا جدا والفكرة ولا اروع :clapping::clapping::clapping:
انا اول مره بصراحة اشوف كده ولم تخطر فى بالى الفكرة مطلقا من قبل كل ما كان يدور بخلدى هو ضبط الارتساء كما تقدم من رأى اخونا الحبيب عبد الله قدور 
ولكن قطعا هذا الموضوع طفرة ويستحق الاعجاب ولو كان هناك اكتر من اعجاب للموضوع الواحد لقمت بوضع الحد الاقصى للاعجاب ولن يوفى ايضا للموع حقة

كل الشكر والتقدر لحضرتك على الموضوع والافكار الاكثر من رائعه
اسال الله تعالى لكم الصلاح والفلاح والخير كله ان شاء الله وفى مزيد من التدقم والرقى والنجاح فدائما تبهرنا كما عهدناك :fff:

  • Like 1
رابط هذا التعليق
شارك

2 ساعات مضت, ابا جودى said:

المعلومات فى هذا الموضوع قيمه جدا جدا جدا والفكرة ولا اروع :clapping::clapping::clapping:
انا اول مره بصراحة اشوف كده ولم تخطر فى بالى الفكرة مطلقا من قبل كل ما كان يدور بخلدى هو ضبط الارتساء كما تقدم من رأى اخونا الحبيب عبد الله قدور 
ولكن قطعا هذا الموضوع طفرة ويستحق الاعجاب ولو كان هناك اكتر من اعجاب للموضوع الواحد لقمت بوضع الحد الاقصى للاعجاب ولن يوفى ايضا للموع حقة

كل الشكر والتقدر لحضرتك على الموضوع والافكار الاكثر من رائعه
اسال الله تعالى لكم الصلاح والفلاح والخير كله ان شاء الله وفى مزيد من التدقم والرقى والنجاح فدائما تبهرنا كما عهدناك :fff:

لقد تعلمت كل هذا بفضل الله تعالى و بفضل الإحتكاك بخبرتكم النيرة في هذا المجال.

و رغم تواضعك الكبير إلا أنك تمتلك خبرة كبيرة في VBA و لا أحد يستطيع أن ينكر ذلك (كيف لا و التواضع سيمة من سيمات العمالقة)

30 دقائق مضت, أبو نادر said:

الله يعطيك العافيه اخوي صالح ... مبدع

الله يحفظ يا غالي مشكور على المداخلة

  • Like 1
رابط هذا التعليق
شارك

12 ساعات مضت, jjafferr said:

السلام عليكم :smile:

 

كود بسيط وعمل جبّار:smile:

شكرا أخي صالح على مشاركتك:smile:

شكرا أستاذ جعفر و بارك الله فيك. سعيدين جدا بمشاركتك معنا

11 ساعات مضت, سلمان الشهراني said:

مشالله تبارك  الله
رائع جدا

شكرا أخي سلمان على الإطراء جزاك الله خير

رابط هذا التعليق
شارك

2 ساعات مضت, محمود أبوسيف said:

أخي صالح ظهرت لي هذه الرسالة

error.jpg

قم بإضافة هذا السطر إلى الوحدة النمطية بعد العنوان مباشرة

On Error Resume Next

 

  • Like 2
رابط هذا التعليق
شارك

12 ساعات مضت, علي المصري said:

شكرا جزيلا

عمل رائع

بحثت عن مثله ولم اجد

شكرا

شكرا أستاذ علي على هذا الإطراء

تم تعديل بواسطه صالح حمادي
رابط هذا التعليق
شارك

22 دقائق مضت, 99عمرو said:

 


On Error Resume Next

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

 

هذا السطر ليس له علاقة بتكبير أو تصغير الخط

دور هذا السطر هو تجاوز الخطأ حين حدوثه

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information