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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فتح الفورم مره واحدة (/showthread.php?tid=33533)

الصفحات: 1 2

فتح الفورم مره واحدة - alshandodi - 24-02-20

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

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

اتمنى ان يكون سؤالي واضح بارك الله فيكم


RE: فتح الفورم مره واحدة - alsalamoni - 24-02-20

(24-02-20, 10:41 AM)alshandodi كتب :
السلام عليكم ورحمة الله وبركاته

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

اتمنى ان يكون سؤالي واضح بارك الله فيكم

افتح الفورم بـ ShowDialog

RE: فتح الفورم مره واحدة - alshandodi - 24-02-20

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

RE: فتح الفورم مره واحدة - alsalamoni - 24-02-20

(24-02-20, 12:47 PM)alshandodi كتب : لم اقصد هكذا اخي مثال انا فتحت شاشه المنتجات وأتى زبون اخر وأريد عمل فاتوره دون الخروج من من شاشه المنتجات وانما اقوم لتصغير الشاشه

لم افهم

Show تجعلك تستطيع فتح الفورم اكثر من مره

هل تستخدم MDIParent كفورم رئيسي؟

RE: فتح الفورم مره واحدة - alshandodi - 24-02-20

(24-02-20, 12:56 PM)alsalamoni كتب :
(24-02-20, 12:47 PM)alshandodi كتب : لم اقصد هكذا اخي مثال انا فتحت شاشه المنتجات وأتى زبون اخر وأريد عمل فاتوره دون الخروج من من شاشه المنتجات وانما اقوم لتصغير الشاشه

لم افهم

Show تجعلك تستطيع فتح الفورم اكثر من مره

هل تستخدم MDIParent كفورم رئيسي؟

نعم اخي استخدم MDIPARENT

RE: فتح الفورم مره واحدة - alsalamoni - 24-02-20

(24-02-20, 01:02 PM)alshandodi كتب :
(24-02-20, 12:56 PM)alsalamoni كتب :
(24-02-20, 12:47 PM)alshandodi كتب : لم اقصد هكذا اخي مثال انا فتحت شاشه المنتجات وأتى زبون اخر وأريد عمل فاتوره دون الخروج من من شاشه المنتجات وانما اقوم لتصغير الشاشه

لم افهم

Show تجعلك تستطيع فتح الفورم اكثر من مره

هل تستخدم MDIParent كفورم رئيسي؟

نعم اخي استخدم MDIPARENT

هل تقصد عدم فتح فورم محدده اكثر من مره مثل شاشة المنتجات
في حين تستطيع فتح فاتورة اكثر من مره؟

RE: فتح الفورم مره واحدة - alshandodi - 24-02-20

نعم بالظبط هكذا اخي المقصد
كود :
If My.Settings.FRM2 = 1 Then
           Exit Sub
       Else
           Dim frm As New Form2
           frm.MdiParent = Me
           frm.Show()
           Me.LayoutMdi(MdiLayout.TileVertical)
           My.Settings.FRM2 = 1
           My.Settings.Save()
       End If

وجدت هذا الحل ولكن لا اريد زحمة في SETTINGS 

وعند اغلاق الفورم 

كود :
ME.CLOSE
 My.Settings.FRM2 = 0
       My.Settings.Save()


RE: فتح الفورم مره واحدة - alsalamoni - 24-02-20

(24-02-20, 01:10 PM)alshandodi كتب : نعم بالظبط هكذا اخي المقصد

ضع بدلا من Form2 اسم شاشة المنتجات
كود :
If Application.OpenForms.Cast(Of Form).OfType(Of Form2)().Count = 0 Then
    Dim frm As New Form2
    frm.MdiParent = Me
    frm.Show()
Else
    Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).WindowState = FormWindowState.Normal
    Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).Activate()
End If
هل هذا الكود قام بما تريد؟
تم تحسين الكود
تنشيط شاشة المنتجات اذا كانت مفتوحة في حالة محاولة فتحها اكثر من مرة

RE: فتح الفورم مره واحدة - alshandodi - 24-02-20

شكرا جزيلا أخي وبارك الله فيك لقد نجح الكود والحمد لله وهذا بفضل الله ثم بفضلك

وفضل جميع الأخوه جعلكم الله ذخرا لهذا المنتدى الرائع

هل يمكن عمله في موديل واستخدامه بسهوله 

RE: فتح الفورم مره واحدة - alsalamoni - 24-02-20

(24-02-20, 01:45 PM)alshandodi كتب : شكرا جزيلا أخي وبارك الله فيك لقد نجح الكود والحمد لله وهذا بفضل الله ثم بفضلك

وفضل جميع الأخوه جعلكم الله ذخرا لهذا المنتدى الرائع

هل يمكن عمله في موديل واستخدامه بسهوله 

العفو اخي

تم تحسين الكود
اعادة تكبير شاشة المنتجات إذا كانت في وضع التصغير