توسيط النماذج في الشاشة عند العرض

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر 
النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا 
ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق
هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم 
 

قاعدة مرفقه للتجربه 

http://www.up-00.com/?I2nY

[ابو جودي]

للرفع
 

السلام عليكم ورحمة الله تعالى وبركاته
سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر 
النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا 
ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق
هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم 
 

قاعدة مرفقه للتجربه 

http://www.up-00.com/?I2nY

[ابو جودي]

Option Compare Database
Option Explicit
Private Declare Function apiGetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As typRect) As Long
Private Declare Function apiGetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As typRect) As Long
Private Declare Function apiSetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Type typRect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Const SW_RESTORE = 9
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_SHOWWINDOW = &H40

Public Function gfncCenterForm(pfrmForm As Form) As Boolean
    Dim lngX As Long, lngY As Long
    Dim rctAccess As typRect, rctForm As typRect
    
    On Error GoTo CenterForm_Error
    Call apiGetClientRect(hWndAccessApp, rctAccess)
    Call apiGetWindowRect(pfrmForm.hwnd, rctForm)
    lngX = CLng((rctAccess.Left + rctAccess.Right) / 2) - CLng((rctForm.Right - rctForm.Left) / 2)
    lngY = CLng((rctAccess.Top + rctAccess.Bottom) / 2) - CLng((rctForm.Bottom - rctForm.Top) / 2)
    lngY = lngY - 1
    lngY = lngY - 2
    Call apiShowWindow(pfrmForm.hwnd, SW_RESTORE)
    Call apiSetWindowPos(pfrmForm.hwnd, 0, lngX, lngY, (rctForm.Right - rctForm.Left), (rctForm.Bottom - rctForm.Top), SWP_NOZORDER Or SWP_SHOWWINDOW Or SWP_NOSIZE)
    gfncCenterForm = True
    Exit Function
    
CenterForm_Error:
    gfncCenterForm = False
End Function

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

[ابو الآء]

موضوع توسيط النمازج وجعلها تتغير مع دقه الشاشه موضوع لم اجد احدا يتحدث عنه

رجاء من الاساتذه توضيح الموضوع ووضع امثله له

[راعي الغنم]

جرب تغيير خاصية توسيط تلقائي للنموذج الى لا وخاصية قابل للنقل الى نعم

انا جربتها وظهرت النماذج وسط الشاشة..

[ابو جودي]

جرب تغيير خاصية توسيط تلقائي للنموذج الى لا وخاصية قابل للنقل الى نعم

انا جربتها وظهرت النماذج وسط الشاشة..

بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك     

[راعي الغنم]

بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك     

 

 

ههههههههههههههههههه

والله ياباش ان امك بتدعي لك

لأنك سألتني امس وكنت مش عارف الاجابة من صدق

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

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

بس يابخيل ماكنت تحط اسم اليوزر والباس بتاعك عشان الواحد يستفيد من الشغل بتاعك

والله شغل جامد وممتاز, وعن نفسي في اكواد عمري ماشفتها زي startform

تعني ايه ستارت فورم دي ياباش مهندس عبدالمعطي افندي ^_^

[ابو جودي]

الله يبارك لك يارب اتفضل الباسورد

اليوزر      mohammed essam

الباسورد   112011 

[ابو الآء]

محمد القصود من كلامى هنا الاتى 

اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه

وهناك اكواد تقوم بتوسيط النموزد تلقائيا

[ابو جودي]

محمد القصود من كلامى هنا الاتى 

اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه

وهناك اكواد تقوم بتوسيط النموزد تلقائيا

والله هذا ما ابحث عنه ولازلت فى انتظار اساتذنا الكرام 

[راعي الغنم]

محمد القصود من كلامى هنا الاتى 

اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه

وهناك اكواد تقوم بتوسيط النموزد تلقائيا

بالنسبة لتوسيط النموذج تلقائيا فهذا كوده

Me.AutoCenter = False

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

كل ما عليكما سوى كتابة كلمة "شاشة" في مربع البحث وستجدا بغيتكما..

[ابو الآء]

عند تطبيق هذه الامثله على الملفات لا تعمل جيداا

نرغب فى شرح وافى 

لانه فى بعض الملف يتم تغيير حجم الكائنات فى النموزج حسب مقاس الشاشه تلقائيا

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

فبعضا يحب مقاس الشاشه بطريقه معينه تختلف عن غيره