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

[صالح حمادي]

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

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

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

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

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

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

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

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

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

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

  اقتباس

السلام عليكم

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

Expand  

 

[صالح حمادي]

  في 3‏/1‏/2017 at 12:21, عبد الله قدور said:

لسلام عليكم

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

Expand  

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

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

[Shivan Rekany]

حلو كتير 

ما شاء الله

بارك الله فيك

[صالح حمادي]

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

[ali2017]

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

 

 

form.rar

[صالح حمادي]

  في 4‏/1‏/2017 at 00:09, ali2017 said:

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

Expand  

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

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

form.rar

[الحلبي]

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

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

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

تسلم اناملك

[صالح حمادي]

  في 4‏/1‏/2017 at 11:53, حلبي said:

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

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

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

تسلم اناملك

Expand  

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

[ابو جودي]

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

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

[أبو نادر]

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

 

[صالح حمادي]

  في 4‏/1‏/2017 at 13:04, ابا جودى said:

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

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

Expand  

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

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

  في 4‏/1‏/2017 at 15:04, أبو نادر said:

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

Expand  

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

[jjafferr]

السلام عليكم 

 

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

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

 

جعفر

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

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

[صالح حمادي]

  في 4‏/1‏/2017 at 18:25, jjafferr said:

السلام عليكم 

 

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

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

Expand  

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

  في 4‏/1‏/2017 at 19:10, سلمان الشهراني said:

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

Expand  

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

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

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

[صالح حمادي]

  في 9‏/1‏/2017 at 19:00, محمود أبوسيف said:

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

Expand  

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

On Error Resume Next

 

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

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

[صالح حمادي]

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

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

Expand  

شكرا جزيلا

[علي المصري]

شكرا جزيلا

عمل رائع

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

شكرا

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

[صالح حمادي]

  في 15‏/1‏/2017 at 18:41, علي المصري said:

شكرا جزيلا

عمل رائع

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

شكرا

Expand  

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

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

[99عمرو]

On Error Resume Next

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

[صالح حمادي]

  في 19‏/1‏/2017 at 20:52, 99عمرو said:

 

On Error Resume Next

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

 

Expand  

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

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

[99عمرو]

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

[صالح حمادي]

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