تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح الفورم مره واحدة
#1
السلام عليكم ورحمة الله وبركاته

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

اتمنى ان يكون سؤالي واضح بارك الله فيكم
الرد
تم الشكر بواسطة:
#2
(24-02-20, 10:41 AM)alshandodi كتب :
السلام عليكم ورحمة الله وبركاته

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

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

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

لم افهم

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

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

لم افهم

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

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

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

لم افهم

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

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

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

هل تقصد عدم فتح فورم محدده اكثر من مره مثل شاشة المنتجات
في حين تستطيع فتح فاتورة اكثر من مره؟
الرد
تم الشكر بواسطة: alshandodi
#7
نعم بالظبط هكذا اخي المقصد

كود :
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()
الرد
تم الشكر بواسطة:
#8
(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

هل هذا الكود قام بما تريد؟

تم تحسين الكود
تنشيط شاشة المنتجات اذا كانت مفتوحة في حالة محاولة فتحها اكثر من مرة
الرد
تم الشكر بواسطة: alshandodi
#9
شكرا جزيلا أخي وبارك الله فيك لقد نجح الكود والحمد لله وهذا بفضل الله ثم بفضلك

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

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

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

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

العفو اخي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فتح الفورم على حسب مقاس الشاشة khaled Mohammed 2 102 17-09-20, 02:44 AM
آخر رد: mrfodri
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 180 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  عدم ظهور التغييرات على الفورم aftfm 7 260 30-08-20, 10:04 PM
آخر رد: aftfm
  [VB.NET] ايرور عند فتح الفورم نضال ابو العافيه 2 233 19-08-20, 08:21 PM
آخر رد: نضال ابو العافيه
  تحديد نقطة واحدة dot في حقل ال datagridview Mohammed Nafa 9 417 05-08-20, 02:03 PM
آخر رد: Mohammed Nafa
  هل من طريقه لوضع صوره فى الفورم الرئيسي midparint خالد كامل1 11 607 05-08-20, 04:54 AM
آخر رد: خالد كامل1
  سؤال : هل من الممكن تفريغ الفورم حول صورة لتظهر الصورة فقط بدون خلفية او ظهور الفورم xprogrammer 2 271 28-07-20, 11:17 AM
آخر رد: Anas Mahmoud
  ماهي طريقة حفظ التعديلات على الفورم عند اعادة تشغيل المشروع العطر الرايق 2 491 07-07-20, 02:10 AM
آخر رد: العطر الرايق
Sad أغلاق الفورم DOX.1 0 154 24-06-20, 12:18 PM
آخر رد: DOX.1
  [VB.NET] دمج مصفوفتين بمصفوفة واحدة محمد اسماعيل 5 321 21-06-20, 12:11 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم