jamal2080 قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 6, 2023 اريد تعديل كود تحجيم النمودج وتوسيطة 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 ولكم من جزيل الشكر رابط هذا التعليق شارك More sharing options...
زياد الحسناوي قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 6, 2023 (معدل) تفضل اتمنى ان يفيدك التالي الحل في جعل خاصية النموذج تغيير الحجم تلقائي ( نعم ) تم تعديل أكتوبر 6, 2023 بواسطه زياد الحسناوي 1 رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 6, 2023 منذ ساعه, سامي الحداد said: Application لم أستخدم التوسيط باستخدام أبعاد التطبيق، كان عمليات التوسيط عندي باستخدم أبعاد Window و Form نحتاج نجربها ربما تكون أفضل من محاولاتنا السابقة. رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 6, 2023 4 ساعات مضت, jamal2080 said: اريد تعديل كود تحجيم النمودج وتوسيطة اخي الكريم بعيداً عن الكود الذي ارفقته ، انت ترغب بتحجيم النموذج ليتلائم مع حجم الشاشة وتوسيطه ؟؟ وضح لي كلمة تحجيم 😅 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أكتوبر 6, 2023 مشاركة قام بنشر أكتوبر 6, 2023 من غير كود ..................... ضع النموذج في وضع التصميم : 1- اذهب Property Sheet ثم Other ثم غير Pop Up إلى Yes . 2- اذهب Property Sheet ثم Format ثم غير Auto Center إلى Yes . ووافني بالرد . 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 يمكنك أيضا استخدام الكود 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 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 المشكلة في الكود Movesize أنه سيختلف موقع النموذج حسب دقة الشاشة من جهاز لآخر ، إلا إن كان تشغيل البرنامج على جهاز واحد فقط , والله أعلم رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 سؤال مهم جدا لماذا هذا التكالب على المشاركة وصاحب المشكلة لم يرد على أي منا?؟؟؟؟؟؟؟؟ 1 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 استاذنا الغالي @kkhalifa1960 ، ان للغائب عذر حتى يعود , وأعلم أنك منزعج لأن جهود الأخوه و الاساتذة قد تضيع دون شكر من القلة ، فأشكر لك شعورك نيابة عن الذين ساهموا بالرد لحل المشكلة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 برجاء القاء نظرة سريعة على الموضوع الاتى رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 5 ساعات مضت, kkhalifa1960 said: سؤال مهم جدا .... وصاحب المشكلة لم يرد على أي منا?؟؟؟؟؟؟؟؟ كما أخبر أخونا الحبيب 3 ساعات مضت, Foksh said: استاذنا الغالي @kkhalifa1960 ، ان للغائب عذر حتى يعود , وأعلم أنك منزعج لأن جهود الأخوه و الاساتذة قد تضيع دون شكر من القلة ، فأشكر لك شعورك نيابة عن الذين ساهموا بالرد لحل المشكلة وانت خير من تعلم يا استاذى القدير ومعلمى الجليل @kkhalifa1960 اننا تعلمنا من اساتذتنا الكرام فى هذا الصرح كما عهدناهم تقديم العون والمساعدة واثراء المشاركات بمختلف الافكار والاجابات التى تعد زخرا لكل ماض و آت بكل حب وكرم وجود والاهم لا يريد ولا ينتظر أحد جزاءً أو شكورا .. هى لله املين من المولى عزوجل القبول ولم اعهدكم هكذا من قبل استاذى الجليل اسأل الله تعالى لى ولكم العفو و العافية و راحة البال و صلاح الحال و سعة الصدر و لباس العافية و حسن الخاتمة احبكم فى الله 1 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أكتوبر 7, 2023 مشاركة قام بنشر أكتوبر 7, 2023 8 ساعات مضت, Foksh said: المشكلة في الكود Movesize أنه سيختلف موقع النموذج حسب دقة الشاشة من جهاز لآخر ، إلا إن كان تشغيل البرنامج على جهاز واحد فقط , والله أعلم لا تكتب الرقم مباشرة إعمل عملية حسابية لحساب وسط الشاشة 🙂 ( عرض الشاشة على 2 - عرض النموذج على 2 ) مثلا 🙂 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان