ابو جودي قام بنشر مايو 4, 2015 مشاركة قام بنشر مايو 4, 2015 السلام عليكم ورحمة الله تعالى وبركاته سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم قاعدة مرفقه للتجربه http://www.up-00.com/?I2nY رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 4, 2015 الكاتب مشاركة قام بنشر مايو 4, 2015 للرفع السلام عليكم ورحمة الله تعالى وبركاته سؤال فنى لما حاولت اجرب طريقة الاستاذ ابا عمر النموذج الاول يفتح فى وسط الشاشه ممتاز جدا والملف يعمل بامتياز فى نقطه اخفاء الاطار نهائيا ولكن لاحظت الاتى تظهر باقى الشاشات بعد شاشة الافتتاحية اعلى يسار الشاشة حاولت مرار وتكرارا جعلها تفتح فى وسط الشاشة ولكن لم اوفق هل هناك كود لذلك او هل هناك طريقة يتفضل بها علينا احد الفنانين والاساتذة الكرام الاجلاء بارك الله فيهم قاعدة مرفقه للتجربه http://www.up-00.com/?I2nY رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 4, 2015 الكاتب مشاركة قام بنشر مايو 4, 2015 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 اثناء البحث على الانترنت وجدت هذه الوحده النمطيه لتوسيط الفورم ولكن لا اعرف كيفية استخدامها بصراحه رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 4, 2015 مشاركة قام بنشر مايو 4, 2015 موضوع توسيط النمازج وجعلها تتغير مع دقه الشاشه موضوع لم اجد احدا يتحدث عنه رجاء من الاساتذه توضيح الموضوع ووضع امثله له رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 5, 2015 مشاركة قام بنشر مايو 5, 2015 جرب تغيير خاصية توسيط تلقائي للنموذج الى لا وخاصية قابل للنقل الى نعم انا جربتها وظهرت النماذج وسط الشاشة.. 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 5, 2015 الكاتب مشاركة قام بنشر مايو 5, 2015 جرب تغيير خاصية توسيط تلقائي للنموذج الى لا وخاصية قابل للنقل الى نعم انا جربتها وظهرت النماذج وسط الشاشة.. بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك 1 رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 5, 2015 مشاركة قام بنشر مايو 5, 2015 بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك ههههههههههههههههههه والله ياباش ان امك بتدعي لك لأنك سألتني امس وكنت مش عارف الاجابة من صدق ولما شفت اليوم مشاركتك بخصوص مفعوصةالرقبة النماذج قلت اشوف يمكن حد حصل حل ولما شفت كلمة السيد ابو الاء "توسيط النماذج" قلت ليه ماجرب تغيير هذه الخاصية ومشى الموضوع تمام بس يابخيل ماكنت تحط اسم اليوزر والباس بتاعك عشان الواحد يستفيد من الشغل بتاعك والله شغل جامد وممتاز, وعن نفسي في اكواد عمري ماشفتها زي startform تعني ايه ستارت فورم دي ياباش مهندس عبدالمعطي افندي ^_^ 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 5, 2015 الكاتب مشاركة قام بنشر مايو 5, 2015 الله يبارك لك يارب اتفضل الباسورد اليوزر mohammed essam الباسورد 112011 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 6, 2015 مشاركة قام بنشر مايو 6, 2015 محمد القصود من كلامى هنا الاتى اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه وهناك اكواد تقوم بتوسيط النموزد تلقائيا 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 6, 2015 الكاتب مشاركة قام بنشر مايو 6, 2015 محمد القصود من كلامى هنا الاتى اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه وهناك اكواد تقوم بتوسيط النموزد تلقائيا والله هذا ما ابحث عنه ولازلت فى انتظار اساتذنا الكرام رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 6, 2015 مشاركة قام بنشر مايو 6, 2015 محمد القصود من كلامى هنا الاتى اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه وهناك اكواد تقوم بتوسيط النموزد تلقائيا بالنسبة لتوسيط النموذج تلقائيا فهذا كوده Me.AutoCenter = False اما بالنسبة لتغيير مقاسات النماذج حسب مقاسات وضبط شاشة المستخدم فالمنتدى فيه عدد من هذه المشاركات كل ما عليكما سوى كتابة كلمة "شاشة" في مربع البحث وستجدا بغيتكما.. رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 6, 2015 مشاركة قام بنشر مايو 6, 2015 عند تطبيق هذه الامثله على الملفات لا تعمل جيداا نرغب فى شرح وافى لانه فى بعض الملف يتم تغيير حجم الكائنات فى النموزج حسب مقاس الشاشه تلقائيا انا شخصيا عانيت كثيرا فى نقل ملفى الاول من جهازى الى باقى الاجهزه فى المدرسة ولم اقم بتوزيع المف على باقى المدارس لهذا السبب فبعضا يحب مقاس الشاشه بطريقه معينه تختلف عن غيره رابط هذا التعليق شارك More sharing options...
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.