ahmedeg_eg قام بنشر يوليو 21, 2010 قام بنشر يوليو 21, 2010 (معدل) بسم الله الرحمن الرحيم كيف يمكنني جعل النموذج في منتصف الشاشة خاصية النموذج ( منبثق )( غير قابل للنقل ) وذلك على أي مقاس للشاشة ( 800 * 600 ) أو ( 1024 * 867 ) تم تعديل يوليو 21, 2010 بواسطه ahmedeg_eg
ابوخليل قام بنشر يوليو 22, 2010 قام بنشر يوليو 22, 2010 من خصائص النموذج / لسان التبويب تنسيق اجعل القيمة / نوسيط تلقائي "نعم"
ahmedeg_eg قام بنشر يوليو 22, 2010 الكاتب قام بنشر يوليو 22, 2010 بسم الله الرحمن الرحيم انا فعلا عامله توسيط تلقائي ولكن بيتغير من جهاز إلى جهاز هل المشكلة في الكود بتاع الحجم ده Private Sub Form_Open(Cancel As Integer) Me.Form.InsideHeight = 9700 Me.Form.InsideWidth = 12350 End Sub
ابوخليل قام بنشر يوليو 22, 2010 قام بنشر يوليو 22, 2010 (معدل) نعم له تأثير وهذا الاختلاف يأتي نتيجة لاختلاف جهاز العرض لكل حاسوب جرب هذه المقاسات Me.Form.InsideHeight = 8000 Me.Form.InsideWidth = 11000 . تم تعديل يوليو 22, 2010 بواسطه أبو الأنس
ahmedeg_eg قام بنشر يوليو 22, 2010 الكاتب قام بنشر يوليو 22, 2010 شكرا للتجاوب معي ولكن أخي هذه مقاسات للنموذج تكبر وتصغر في العرض والارتفاع وتقريبا ليس لهاتأثير على جعل النموذج في وسط الشاشة شكرا أخوك أحمد
ابوخليل قام بنشر يوليو 22, 2010 قام بنشر يوليو 22, 2010 اخي احمد فعلا لها تأثير كيف ؟ الان انت جعلت خصائص النموذج توسيط تلقائي فعند فتحه تبقى المسافة الفارغة اليسرى والعلوية ثابتة ، فكلما تزيد الارتفاع ينزل تحت وكلما تزيد العرض يأخذ بالزيادة الى اليمين . فهنا يلزمك وضع مقاسات خاصة للفورم بحيث تكون الجهة اليمنى الفارغة تساوي الجهة اليسرى ، وكذلك العلوي والسفلي . اظن الأمر واضح الآن طيب نريد ان نوسط النموذج وهو بحجمه الكبير هذا ، طبع يمكن التوسيط اليدوي وليس الآلي افتح النموذج على عرض التصميم غير خصائص النموذج توسيط تلقائي الى : لا بعد ذلك اسحب النموذج بالفأرة واجعله بالمكان الذي تريد ثم احفظ واغلق عند عرض النموذج سيكون في المكان الذي وضعته فيه تحياتي ،،
ahmedeg_eg قام بنشر يوليو 23, 2010 الكاتب قام بنشر يوليو 23, 2010 (معدل) بسم الله الرحمن الرحيم على فكرة انا لقيت الحل في جعل خاصية النموذج تغيير الحجم تلقائي ( نعم ) مع كتابة نفس الأكواد وباقي الخصائص الأخرى ( منبثق / توسيط تلقائي ) Me.Form.InsideHeight = 9700 Me.Form.InsideWidth = 12350 والف شكر لكم على الردود السريعة اخوكم احمد تم تعديل يوليو 23, 2010 بواسطه ahmedeg_eg
ابوخليل قام بنشر يوليو 23, 2010 قام بنشر يوليو 23, 2010 افدنا بارك الله فيك فهذا المنتدى للجميع فكما نأخذ منه نعطيه
فرهاد كريم قام بنشر أبريل 16, 2011 قام بنشر أبريل 16, 2011 (معدل) شكرا يا اساتذة ان شاء الله موفقين تم تعديل أبريل 16, 2011 بواسطه فرهاد كريم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.