hamzabsb قام بنشر يونيو 3, 2011 قام بنشر يونيو 3, 2011 السلام عليكم ورحمة الله اخواني الأفاضل جمعة مباركة ان شاء الله من فضلكم أخواني لي مشكل مروع صنعت برنامجي بالأكسس 2003 في حاسوبي وحين نقلت برنامجي لحاسوب أخر تفاجئت أن كل شيء اتلخبط لم يعد كما صممته بحث أصبح الفورم في مكان أخر وأيضا أزرار في أماكن أخرى بسبب تغيير الشاشة الحاسوب من فضلكم أريد كود أو طريقة يجعل مفاسات فورمات مقاسات برنامجي ثابثة وتشتغل في أي جهاز كيفما كان بدون ميتأثر شكلها رجاءا الأمر مهم من فضلكم ياريت كود مع المكان التي أضعه به رجاءا هدا مشكل مريب في الأكسس أتمنى يكون له حل رجاءا أنتظركم + لم أرفق أي مثال لكي اضع الكود بنفسي وأعرف مكانه من فضلكم
hamzabsb قام بنشر يونيو 3, 2011 الكاتب قام بنشر يونيو 3, 2011 المرجو الرد من فضلكم اخواني الأمر مهم جزاكم الله خيرا
hamzabsb قام بنشر يونيو 4, 2011 الكاتب قام بنشر يونيو 4, 2011 30 مشاهدة ولا رد لااله الا الله المرجو من فضلكم مساعدة رجاءا اخواني هل طلبي صعب
منتصر الانسي قام بنشر يونيو 4, 2011 قام بنشر يونيو 4, 2011 اخي العزيز فيما يخص اصدار 2003 فلا توجد هذه الخاصية الا عن طريق الكود ومرفق لك مثالين ممتازين اما في إصدار 2007 و 2010 فأعتقد أن خاصية التناسب مع الشاشة تأتي ضمن خصائص النموذج تحياتي,,, Resize.rar
hamzabsb قام بنشر يونيو 6, 2011 الكاتب قام بنشر يونيو 6, 2011 السلام عاليكم خوي من فضلك ممكن الكود لأضعه عن طريق نسخ ولصق رجاءا مع المكان الدي أضعه من فضللكم ساعدوني
منتصر الانسي قام بنشر يونيو 6, 2011 قام بنشر يونيو 6, 2011 اخي العزيز بالإعتماد على المثال Resize قم بالخطوات التالية : قم بإستيراد الميدولات (gr & tow) الى قاعدة بياناتك 1- في حدث (عند التحميل او On Load) للنموذج يكتب الكود الذي يقوم بتكبير حجم النموذج للحد الأقصى ثم يقوم بإغلاق بقية النوافذ المفتوحة حتى لا تتأثر من تغيير دقة الشاشة DoCmd.Maximize Shell "taskkill /f /im explorer.exe", vbMinimizedNoFocus ملحوظة : اذا كنت ترغب في تنبيه المستخدم عن التغييرات قبل تنفيذها يمكنك أن تسبق الكود بهذا السطر If MsgBox("سيتم إغلاق خلفية ويندوز فإذا كان لديك برامج لم تحفظها اختر (إلغاء الأمر) وقم بحفظها أولاً", vbOKCancel, "تنبيه") = vbCancel Then DoCmd.Quit 2- في حدث (عند الفتح أو On Open) في النموذج اكتب الكود الذي يقوم بحفظ الإعدادات الحالية وتغييرها الى الإعدادات الخاصة بك Call xg_GetScreenResolution Call ChangeResolution(1024, 768) وهنا يمكنك إستبدال الأرقام 1024 و 768 بالدقة المطلوبة بحسب رغبتك 3- في حدث (عند إلغاء التحميل او On UnLoad) يكتب الكود الذي يسترجع الإعدادات الأصلية ويشغل بقية النوافذ Call ChangeResolution(aa1, aa2) Shell "explorer.exe", vbMinimizedNoFocus ومرفق لك مثال مطبق فيه ماسبق أرجو أن يكون الشرح واضح تحياتي,,, NewResize.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.