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

كنت اريد طرح نفس السؤال ولكني وجدتك تساله لذلك اضم صوتي الى صوتكفي طرح السؤال

الاخوة الاعزاء الرجاء مساعدتنا

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

ابو باسل

أنا أقوم بما يلي :

1- اثناء عملية التصميم اجعل القاعدة فى حالة التصغير وليست تكبير

2- اسحب بالماوس النموذج للمكان الذي تريده .

3- فى خاصة التنسيق للنموذج يوجد بند اسمه توسيط تلقائي اجعله لا

نفذ وجرب .

ملحوظة : هناك طريقة بالاحداثيات ولكن لا أعرفها جيدا .

أشرف خليل

زيادة على ما قاله الأستاذ أشرف أو توضيح لما قاله

========

1- إذهب إلى خصائص النموذج

2- إذهب إلى تبويب( غير ذلك )

3- منبثق ( نعم )بدلاً من ( لا )

4- يجب أن لا يكون هناك كود يعمل على تكبير النموذج عند فتحه أو تحميله والكود هو DoCmd.Maximize

5- أذهب إلى تبويب ( تنسيق )

6- نمط الحدود أختر ( يمكن تغيير حجمه )

7-توسيط تلقائي ( لا )

8- شغل النموذج

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

10- إرجع إلى تصميم النموذج .. ثم خصائصه .. ثم تبويب (تنسيق ) .. ثم (نمط الحدود ) وغيرها لتصبح ( مربع حوار )

11- أعد تشغيل النموذج وانظر النتيجة

=========

وتقبل تحياتي

الأخوين العزيزين / أشرف و سعودي 31

أشكر لكما تفضلكما بالرد ولكن ما ذكرتماه هو ما أقوم به حاليا وهي طرق أعرفها جيدا ولكنني أريد عمل ذلك بالكود ؟

شكرا لجهودكما مرة أخرى

أبو بشاير

عزيزي أبو بشاير

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

وشكراً لك

الحل الاسهل باستخدام docmd.movesize

 DoCmd.MoveSize 50,70,11500, 7500

فيكون بذلك الطرف الايسر العلوي علي مسافة 50 من اليسار

70 من أعلي

و عرض الفورم 11500

و ارتفاعها 7500

و أفضل استخدام الحل الاتي

مع اختيار خاصية autocenter للفورم

 DoCmd.MoveSize ,,11500, 7500

و هناك مثال علي توسيط فورم داخل فورم به بعض أكواد أكثر

http://www14.brinkster.com/mtarafa/forms/F.../FormResize.zip

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

بال api

و لم أجربه و هو

Task: Move a window to a specified point using MoveWindow API

Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-------

Private Sub Command1_Click()
Dim rval, x, y, z As Long
Form1.AutoRedraw = True
x = 5: y = 5
For z = 1 To 50
rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
Sleep 100
x = x + 5: y = y + 5
Next z
For z = 1 To 50
rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
Sleep 100
x = x + 5: y = y - 5
Next z
End
End Sub

كل الشكر والتقدير لك أخي محمد طاهر

لقد جربت الكود وكانت النتيجة أكثر من رائعة

شكرا لك مرة أخرى