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

[صالح حمادي]

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

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

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

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

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

[عبد الله قدور]

اقتباس

السلام عليكم

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

 

[صالح حمادي]

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

لسلام عليكم

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

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

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

[Shivan Rekany]

حلو كتير 

ما شاء الله

بارك الله فيك

[صالح حمادي]

و فيك بارك الله أستاذ تشفان

[ali2017]

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

 

 

form.rar

[صالح حمادي]

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

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

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

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

form.rar

[الحلبي]

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

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

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

تسلم اناملك

[صالح حمادي]

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

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

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

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

تسلم اناملك

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

[ابو جودي]

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

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

[أبو نادر]

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

 

[صالح حمادي]

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

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

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

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

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

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

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

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

[jjafferr]

السلام عليكم 

 

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

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

 

جعفر

[سلمان الشهراني]

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

[صالح حمادي]

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

السلام عليكم 

 

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

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

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

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

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

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

[محمود أبوسيف]

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

[صالح حمادي]

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

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

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

On Error Resume Next

 

[محمد الصالح]

ما شاء الله عليك يا أستاذ عمل ممتاز

[صالح حمادي]

في 11‏/1‏/2017 at 08:43, محمد الصالح said:

ما شاء الله عليك يا أستاذ عمل ممتاز

شكرا جزيلا

[علي المصري]

شكرا جزيلا

عمل رائع

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

شكرا

تم تعديل يناير 15, 2017 بواسطه علي المصري

[صالح حمادي]

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

شكرا جزيلا

عمل رائع

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

شكرا

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

تم تعديل يناير 16, 2017 بواسطه صالح حمادي

[99عمرو]

On Error Resume Next

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

[صالح حمادي]

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

 

On Error Resume Next

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

 

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

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

[99عمرو]

ما هو بيحدث عندى الخطا فى السطر .Fontsize 
وبالتالى بيتجاوزه وبتحدث مشكله فى الخطعند الفتح

[صالح حمادي]

أرسل المرفق لنحاول معرفة الخلل