كيف يمكن ضبط خصائص نموذجين ليكونا فى نفس المكان بالشاشة

[أحمد العيسى]

السلام عليكم

عندى نموذجين كل منهما عبارة عن "تفصيل ( Detail)  فقط " .. لهما نفس الطول ونفس العرض رقمياً

أحدهما ينادى الآخر ليحل محله ، فأجد أن الآخر يتموضع فى مكان أعلى قليلاً من النموذج المنادى عليه

السؤال : ما هى بنود الخصائص التى توحد ظهور كل منهما فى نفس المكان بشاشة الكمبيوتر بالضبط

علماً بأننى مفعل خاصية التوسيط لنموذج كل منهما بـ "نعم"

تحياتى وتقديرى لكم

[ابوخليل]

عليكم السلام

الفتح والاغلاق بالتناوب .. تنتهي مشكلتك

النموذج الاول يفتح النموذج الثاني ويغلق نفسه من زر المناداة

والنموذج الثاني عند الاغلاق يفتح النموذج الأول

[أحمد العيسى]

شكراً لك

لا يوجد مشكلة ، بل هى ناحية جمالية فقط

النموذج الأول يفتح النموذج الثانى فى موضع أعلى منه قليلاً فى الشاشة  قبل إغلاق نفسه

والنموذج الثانى عند إغلاقه يعيد فتح النموذج الأول فى نفس الموضع الأول أى أسفل قليلاً من النموذج الثانى

سأجرب هذا الكود لكل من النموذجين

Public Sub CenterFormOnScreen(formName As String)
  Dim screenWidth As Long
  Dim screenHeight As Long

  screenWidth = GetSystemMetrics(SM_CXSCREEN)
  screenHeight = GetSystemMetrics(SM_CYSCREEN)

  Dim targetForm As Form
  Dim formWidthTwips As Long
  Dim formHeightTwips As Long
  Dim formWidthPixels As Long
  Dim formHeightPixels As Long
  Dim fleftPos As Long
  Dim ftopPos As Long
  
      Set targetForm = Forms(formName)
          
      ' الحصول على عرض النموذج وارتفاعه بالتويبس
      formWidthTwips = targetForm.windowWidth
      formHeightTwips = targetForm.windowHeight

      ' تحويل الأبعاد من تويبس إلى بكسل
      formWidthPixels = formWidthTwips / 15
      formHeightPixels = formHeightTwips / 15
         
      ' Calculate left and top positions for centering
      fleftPos = (screenWidth - formWidthPixels) / 2
      ftopPos = (screenHeight - formHeightPixels) / 2
      
      ' اعاده التحويل لوحدة القياس تويبس
      fleftPos = fleftPos * 15
      ftopPos = ftopPos * 15
     
      ' نقل النموذج إلى الموضع المركزي
      DoCmd.MoveSize fleftPos, ftopPos
End Sub

 

تم تعديل مارس 22 بواسطه أحمد العيسى

[ابوخليل]

8 ساعات مضت, أحمد العيسى said:

النموذج الأول يفتح النموذج الثانى فى موضع أعلى منه قليلاً فى الشاشة  قبل إغلاق نفسه

 

جرب اجعله بعد اغلاق نفسه

[أحمد العيسى]

تم الوصول إلى الحل بالتجربة

إذ  يبدو  أن  الخصائص  لها  أولية  عن  الكود

لذلك تم تغيير خاصية التوسيط للنموذجين   بـ "لا"

واستدعاء توسيط النموذج عند الفتح باستخدام الكود أعلاه

Private Sub Form_Open(Cancel As Integer)
   CenterFormOnScreen "frm_M1"
End Sub