اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

التحكم في ارتفاع وعرض النموذج بالكود


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

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

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

كيف يمكنني التحكم في العرض والارتفاع بالشكل الدقيق

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

  • Thanks 1
رابط هذا التعليق
شارك

أو

ضع الكود التالي

DoCmd.MoveSize 300, 300, 11250, 7000

و هو يعطي أربعة قيم لمكان اليسار العلوي كسين و صاد من أعلي اليسار

ثم للعرض و أخيرا الارتفاع

و غير القيم كما يناسبك

و يمكنك وضعه فى حدث عند تغيير الحجم

Private Sub Form_Resize()

 DoCmd.MoveSize , , 11500, 7500

End Sub

و هنا تم تجاهل المكان و الاكتفاء بتحديد المقاس

و فى هذه الحالة تجعل خاصية autocenter للنموذج = نعم

رابط هذا التعليق
شارك

مشور أستاذي العزيز

أرجو لو تكرمت . ذكر الخصائص بالعربي لعدم معرفتي بالخصائص باللغة الانجليزي

فهذه ما ترجمتها Autosize

أما هذه autocenter هل هي توسيط تلقائي

مع جزيل الشكر والتقدير

رابط هذا التعليق
شارك

Autosize = تغيير الحجم تلقائي

اجعل هذه الخاصية = لا

أنا أتبع ما يلي :

1- اجعل الخاصية السابقة كما ذكرت = لا

2- اجعل اقاعدة فى وضع عادي أي لا تكون مكبرة بحجم الشاشة

3- فى وضع التصميم حرك النموذج بالماوس بالحجم والشكل المطلوب لك .

4- قم بحفظ النموذج

5- إن شاء الله يضبط معاك

6- أشرف خليل

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاتة

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

اذا كان موجود فارجو ان تشرحوها لي او ارفاق ملف .

تحياتي اخوكم مروان

:d

رابط هذا التعليق
شارك

فى حدث عند الفتح لنموذج حدد المقاس الصغير

DoCmd.MoveSize , , 5000, 3000

ثم لفتح النموذج بالحجم الكامل

DoCmd.MoveSize , , 12000, 6500

و للعودة الي المقاس الصغير

DoCmd.MoveSize , , 5000, 3000

و ايضا يمكنك استغلال نفس الامر لتحديد المكان و ليس الحجم فقط

مثل

DoCmd.MoveSize 100,150,5000, 3000

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information