[ تمت الإجابة ]كيف يتم التحكم في موضع النموذج علي الشاشة

اخي الفاضل محمد فؤاد

حمدا لله على عودتك سالما

بالنسبة لهذا الموضوع فإننا نستخدم دالة Move لهذه العملية حيث يكون الكود الخاص بها عند فتح النموذج هو

'Me.Move Left, Top, Width, Height
Me.Move 0, 0, 6200, 3600

حيث ان اول رقم يمثل البعد عن الحافة اليسرى للشاشة

الرقم الثاني يمثل البعد عن الحافة العلوية للشاشة

الرقم الثالث يمثل عرض النموذج

الرقم الرابع يمثل طول النموذج

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

ونلاحظ ان عرض النموض هو بمقدار 6200 وارتفاعه بمقدار 3600

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

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

Private Sub Form_Open(Cancel As Integer)
'Me.Move Left, Top, Width, Height
Me.Move 0, 0, 6200, 3600
DoCmd.OpenForm "form2"
DoCmd.OpenForm "form3"
DoCmd.OpenForm "form4"
End Sub

zaOpenForm.rar

بالتوفيق

السلام عليكم

الحقيقة أنا قمت باعداد مثال قبل ماأطلع على رد الاستاذة الكريمة زهرة

وهو يعتمد على ذات الدالة .. المثال مرفق ..... موفق أخي محمد وجزاك الله خيرا أم عهود

أخي محمد قبل تجربة المثال أضبط مقاس شاشتك على 1024 / 768

أخوكم : إكسير

EK_Form_Move.rar

مثال رائع وداله أكثر من رائعة من مشرفة مميزة

أخي الغالي أكسير انت استاذ قدير

شكراً جزيلاً

وكل عام وانتم بخير

شكرااا لكم جميعاا

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة