توسيط نمودج

[jamal2080]

اريد تعديل كود تحجيم النمودج وتوسيطة 

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
' تعيين القيم المطلوبة لعرض النموذج
    Me.WindowWidth = 1920
    
    ' تعيين القيم المطلوبة لارتفاع المساحة الداخلية للنموذج
    Me.WindowHeight = 1080
    
    ' توسيط النموذج على الشاشة
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    
    On Error GoTo 0
   
End Sub

ولكم من جزيل الشكر

[زياد الحسناوي]

تفضل اتمنى ان يفيدك التالي 

الحل في جعل خاصية النموذج تغيير الحجم تلقائي ( نعم )

تم تعديل أكتوبر 6, 2023 بواسطه زياد الحسناوي

[سامي الحداد]

تفضل اخي الكريم

 On Error Resume Next
    
    ' تعيين القيم المطلوبة لعرض النموذج
    Me.WindowWidth = 1920
    
    ' تعيين القيم المطلوبة لارتفاع المساحة الداخلية للنموذج
    Me.WindowHeight = 1080
    
    ' توسيط النموذج على الشاشة
    Me.Left = (Application.Width - Me.Width) / 2
    Me.Top = (Application.Height - Me.Height) / 2
    
    On Error GoTo 0

بالتوفيق

[AbuuAhmed]

منذ ساعه, سامي الحداد said:

Application

لم أستخدم التوسيط  باستخدام أبعاد التطبيق، كان عمليات التوسيط عندي باستخدم أبعاد Window و Form
نحتاج نجربها ربما تكون أفضل من محاولاتنا السابقة.

[Foksh]

4 ساعات مضت, jamal2080 said:

اريد تعديل كود تحجيم النمودج وتوسيطة

اخي الكريم بعيداً عن الكود الذي ارفقته ، انت ترغب بتحجيم النموذج ليتلائم مع حجم الشاشة  وتوسيطه ؟؟

وضح لي كلمة تحجيم 😅

[kkhalifa1960]

من غير كود .....................

ضع النموذج في وضع التصميم :

1- اذهب Property Sheet    ثم   Other   ثم غير  Pop Up إلى  Yes .

2- اذهب Property Sheet    ثم   Format   ثم غير  Auto Center إلى  Yes .

ووافني بالرد .

[Moosak]

يمكنك أيضا استخدام الكود Move Size لتضبيط موقع النموذج وأبعاده :

https://learn.microsoft.com/en-us/office/vba/api/access.docmd.movesize?f1url=%3FappId%3DDev11IDEF1%26l%3Den-US%26k%3Dk(vbaac10.chm4158)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

[Foksh]

المشكلة في الكود Movesize أنه سيختلف موقع النموذج حسب دقة الشاشة من جهاز لآخر ، إلا إن كان تشغيل البرنامج على جهاز واحد فقط , والله أعلم 

[kkhalifa1960]

سؤال مهم جدا

لماذا هذا التكالب على المشاركة وصاحب المشكلة لم يرد على أي منا?؟؟؟؟؟؟؟؟ 

[Foksh]

استاذنا الغالي @kkhalifa1960 ، ان للغائب عذر حتى يعود , وأعلم أنك منزعج لأن جهود الأخوه و الاساتذة قد تضيع دون شكر من القلة ، فأشكر لك شعورك نيابة عن الذين ساهموا بالرد لحل المشكلة 

[ابو جودي]

برجاء القاء نظرة سريعة على الموضوع الاتى   

 

[ابو جودي]

5 ساعات مضت, kkhalifa1960 said:

سؤال مهم جدا
.... وصاحب المشكلة لم يرد على أي منا?؟؟؟؟؟؟؟؟ 

كما أخبر أخونا الحبيب 

3 ساعات مضت, Foksh said:

استاذنا الغالي @kkhalifa1960 ، ان للغائب عذر حتى يعود , وأعلم أنك منزعج لأن جهود الأخوه و الاساتذة قد تضيع دون شكر من القلة ، فأشكر لك شعورك نيابة عن الذين ساهموا بالرد لحل المشكلة 

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

والاهم لا يريد ولا ينتظر أحد جزاءً أو شكورا .. هى لله املين من المولى عزوجل القبول 

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

احبكم فى الله 

[Moosak]

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

المشكلة في الكود Movesize أنه سيختلف موقع النموذج حسب دقة الشاشة من جهاز لآخر ، إلا إن كان تشغيل البرنامج على جهاز واحد فقط , والله أعلم 

لا تكتب الرقم مباشرة إعمل عملية حسابية لحساب وسط الشاشة 🙂 ( عرض الشاشة على 2 - عرض النموذج على 2 ) مثلا 🙂