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

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

السلام عليكم

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

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

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

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

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

[ابوخليل]

عليكم السلام

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

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

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

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

شكراً لك

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

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

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

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

Option Compare Database
Option Explicit
Private Type Rect
    left As Long
    top As Long
    Right As Long
    Bottom As Long
End Type

#If VBA7 And Win64 Then
    '64 bits
Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Declare PtrSafe Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare PtrSafe Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Declare PtrSafe Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Declare PtrSafe Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

#Else
    '32 bits
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If

Private Const clngTimerInterval As Long = 10
Private i As Integer, y As Integer, z As Integer
Private numGor(1 To 15) As Integer
Private numVert(1 To 11) As Integer
Private WidthEl As Long, HeightEl As Long
Private winrect As Rect
Private hRgn
Private frm As Form
Private Const SM_CXSCREEN As Long = 0
Private Const SM_CYSCREEN As Long = 1