اختلاف حجم الشاشة من جهاز الى آخر

[سعيد صواب]

السلام عليكم ورحمة الله وبركاته ...

عندي برنامج صممته على لاب توب مقاس الشاشة 17 .... وقمت بتجربته على جهاز مكتبي عندي  مقاس الشاشة 19  وتعمل الواجهه بشكل ممتاز

المشكلة لدي فقط في نموذج الواجهه .. باقي النماذج منبثقة من الواجهة والحمدلله مافيها مشكلة .

عند تركيبه على اجهزة العمل ... شاشة مقاس 19  يظهر فراغ من اليمين بمقدار تقريبا 3 الى 4 سم  .. وهناك شاشة اخرى كبيرة مقاسها 23 تقريبا  ايضا يظهر فراغ اكبر من السابق .

 

توضيح : عند فتحه الواجهه انا معطي امر maximize ... عناصر النموذج تكون ظاهرة بشكل كامل من اليسار .. الفراغ اللي يظهر هو عبارة عن خلفية النموذج . 

 

 

والحيرة الاكبر هنا لماذا لم يعمل في شاشة العمل اللي مقاسها 19 مثل ماهو يعمل على الجهاز عندي .

 

 

ارجو المشاركة ممن مر بتجربه مماثله او له خبرة في الموضوع ..

ومشكورين مقدما .

[jojo2009]

والله اخي كريم أعاني من نفس مشكلة 

اتمنى من الاخوة في حل مشكلة 

[سعيد صواب]

 

وجدت هذه الوحدة النمطية وجربتها على جهازي وذلك بتغيير دقة الشاشة  ... وسأقوم بتجربتها على الأجهزة الأكبر يوم الأحد بإذن الله

تظهر رسالة تفيدك بدقة الشاشة التي تعمل عليها وتخبرك بأن البرنامج تم تصميمه بدقة  1024*768  وتخيرك فيما اذا كنت ترغب بتغيير دقة الشاشة

اذا اخترت نعم تظهر لك نافذة تغيير دقة الشاشة..

 

 

Option Compare Database

Option Explicit
 

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
 
Sub VerifyScreenResolution(Optional Dummy As Integer)
     
    Dim x  As Long
    Dim y  As Long
    Dim MyMessage As String
    Dim MyResponse As VbMsgBoxResult
     
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    If x = 1024 And y = 768 Then
    Else
        MyMessage = "Your current screen resolution is " & x & " X " & y & vbCrLf & "This program " & _
        "was designed to run with a screen resolution of 1024 X 768 and may not function properly " & _
        "with your current settings." & vbCrLf & "Would you like to change your screen resolution?"
        MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "Screen Resolution")
    End If
    If MyResponse = vbYes Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
    End If
     
End Sub

 

وفي حدث عند الفتح للنموذج نستدعي الدالة 

Call VerifyScreenResolution

 

ولمن لديه تجارب في هذا الموضوع لا يبخل علينا 

 

بالتوفيق للجميع

[أواب]

هذا الملف من صنع الدكتورة زهرة حفظها الله

مع بعض التعديلات

يمكن الاستفادة منه

والدعاء لها

دقة الشاشة.zip

[سعيد صواب]

حياك الله اخي اواب 

شكرا لمشاركتك .. 

مثال ممتاز .. 

جزاك الله كل خير انت والأخت زهرة

وبالتوفيق للجميع

[jjafferr]

السلام عليكم 

 

انا لا خبرة لي في هذا الموضوع ، ولكنه احد المواضيع المتداولة كثيرا ، Form Resizer

 

انت في الواقع تريد:

https://www.fmsinc.com/microsoftaccess/controls/components/form-resizer/index.html

 

الاكسس 2010 له طريقة تستطيع ان تكبر/تصغر احجام حقول معينة في حال تكبير/تصغير الشاشة ، عن طريقة Anchoring ، مثل حقل Notes في الرابط التالي:

http://www.appliedoffice.net/news/2009-may/access.html

 

وهنا امثلة يمكن انزالها لتكبير/تصغير النموذج كاملا:

http://jamiessoftware.esy.es/resizeform/afr.zip

http://jamiessoftware.esy.es/articles/resolution.html

http://www.databasejournal.com/features/msaccess/article.php/3689226/Auto-Resize-Access-Subforms.htm

 

جعفر

[سعيد صواب]

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

شكرا وجزاك الله كل خير 

صحيح تحتاج وقت للدارسة والتجربة .. ولكن اهم شئ انا وصلنا لطريق ...

مشكور مرة اخرى 

[jjafferr]

حياك الله 

 

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

فجدا مهم ان القى بدائل لبرامجي ، عن طريق برامجي ، ولبرامجي فقط ، وبدون تغيير اعدادات الكمبيوتر او الريجستري 

 

 

جعفر

[SABER_EDP]

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

[jjafferr]

اما انا ، فنادرا استعمل النماذج المنبثقة 

 

 

جعفر

[سعيد صواب]

السلام عليكم ورحمة الله

هل من مشكلة في النماذج المنبثقة استاذ جعفر 

 

[jjafferr]

وعليكم السلام أخي سعيد 

37 دقائق مضت, سعيد صواب said:

هل من مشكلة في النماذج المنبثقة استاذ جعفر 

.

السؤال الصحيح هو ، هل من سبب لإستخدام النماذج المنبثقة؟

 

اذا اردت فتح البرنامج بحجم الشاشة ، 

جميل ان تقرأ الرابط التالي من اوله لآخره ، وتنزل المرفق من الرابط: 

http://www.officena.net/ib/topic/65914-قفل-نموذج-او-كبسة-command-برقم-سري/?do=findComment&comment=429339

 

نعم هناك عدة مشاكل ، وهذه احد المواضيع اللي فيها مشكلة ، وبدون سبب:

http://www.officena.net/ib/topic/67430-تغيير-تسمية-الازرار-في-رسالة-msgbox/?do=findComment&comment=440539

 

بالاضافة الى ان النموذج المنبثق فيه زيادة شغل ، افتح هذا النموذج وفي نفس الوقت اغلق ذاك ، 

وتعال في التصميم ، ووو

ونفس الشئ بالنسبة الى التقرير المنبثق 

 

جعفر

[سعيد صواب]

جزاك الله خير استاذ جعفر

انا واحد من اللي يحبون النماذج المنبثقة

ملاحظات خبير وتؤخذ  بعين الإعتبار .... 

شكرا جزيلا