تثبيت الفورم كأنه مسج بوكس

السلام عليكم

Form2.Show 1

مشكور اخي الكريم

لكن هذا الطريقة اخي تنجح مع الفورم العادي وليس الفورم الابن

فاذا امكن المساعدة

جربه

يجعل النافذة فوق الكل + أعمل تجميد للفورمات الاخرى في الحال الفورم العنيد كان مفعل Activate

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
Form2.Enabled = False
End Sub

Private Sub Timer1_Timer()  'interval = 1
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

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

على كل شكرا مرة اخرى على جهودك الطيبة

Form1.Show vbModal

الأخ الفاضل ...

قم بإضافة الشرط التالى فى بدء الـ"()Sub LoadNewDoc" الموجود فى النافذة الرئيسية (الأب) "frmMain.frm" ليصبح كالتالى:

Private Sub LoadNewDoc()
	If Not (ActiveForm Is Nothing) Then Exit Sub
	...
	...
End Sub

وشكراً

اخي Eng. Usama El-Mokadem

اذا امكن المزيد من التوضيح

و اريد ان ابين المزيد من التوضيح من جانبي

اخي الفورم الذي لا اريد اهماله و الانتقال الى غيره هو عبارة عن نموذج بحث تابع لنموذج ابن اخر

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

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

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

اخي العزيز Super_Pro مما سبق فهمت ان الform الذي تريد اظهاره هو نموذج البحث وبالتالي فهو يظهر عند طلب البحث ولذلك سأخبرك بحل بمنتهى البساطة ارجو ان يفيدك هو ان لا تجعل نموذج البحث نموذج وليد (ابن) وحرره من هذه الخاصية وبذلك عند عرضه تقدر تستخدم الكود التالي

form1.show 1

وارجو ان اكون افادتك على حسب فهمي للمشكلة

:)

مشكور اخي الكريم