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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=40954)

للخروج من كل الفورم - Emam emam - 17-03-22

السلام عليكم
عندي زر تسجيل الخروج فعند الضغط عليه يقوم باغلاق كل الفورم ويفتح لي شاشة تسحيل الدخول
ولكن المشكله ان فيه فورم ممكن يكون مفتوح في الخلف 
فاريد عند الضغط يقوم بالخروج من كل الفورم حتي الرءيسيه  ويفتح شاشة تسجيل الدخول
وجزاكم الله خيرا

RE: للخروج من كل الفورم - asmarsou - 18-03-22

(17-03-22, 10:28 AM)Emam emam كتب : السلام عليكم
عندي زر تسجيل الخروج فعند الضغط عليه يقوم باغلاق كل الفورم ويفتح لي شاشة تسحيل الدخول
ولكن المشكله ان فيه فورم ممكن يكون مفتوح في الخلف 
فاريد عند الضغط يقوم بالخروج من كل الفورم حتي الرءيسيه  ويفتح شاشة تسجيل الدخول
وجزاكم الله خيرا
و عليكم السلام و حمة الله و بركاته
تفضل هذا مثال لغلق جميع الشاشات المفتوحة عدا الفورم 3 باعتبارها شاشة تسجيل الدخول كما ذكرت في نص سؤالك
لكي يعمل الكود بشكل سليم افتح نافة خصائص المشروع و غير في خاصية اغلاق التطبيق من
- عند اغلاق الفورم الرئيسية الى
-عند اغلاق آخر فورم مفتوحة
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Application.OpenForms.Cast(Of Form)() _
             .Except({Form3}) _
             .ToList() _
             .ForEach(Sub(form) form.Close())
       '.Except({Form3})   هذالاستثناء الفورم المحدد من الغلق هنا فورم 3 لن تغلق
   End Sub


RE: للخروج من كل الفورم - Emam emam - 19-03-22

(18-03-22, 12:22 PM)asmarsou كتب :
(17-03-22, 10:28 AM)Emam emam كتب : السلام عليكم
عندي زر تسجيل الخروج فعند الضغط عليه يقوم باغلاق كل الفورم ويفتح لي شاشة تسحيل الدخول
ولكن المشكله ان فيه فورم ممكن يكون مفتوح في الخلف 
فاريد عند الضغط يقوم بالخروج من كل الفورم حتي الرءيسيه  ويفتح شاشة تسجيل الدخول
وجزاكم الله خيرا
و عليكم السلام و حمة الله و بركاته
تفضل هذا مثال لغلق جميع الشاشات المفتوحة عدا الفورم 3 باعتبارها شاشة تسجيل الدخول كما ذكرت في نص سؤالك
لكي يعمل الكود بشكل سليم افتح نافة خصائص المشروع و غير في خاصية اغلاق التطبيق من
- عند اغلاق الفورم الرئيسية الى
-عند اغلاق آخر فورم مفتوحة
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Application.OpenForms.Cast(Of Form)() _
             .Except({Form3}) _
             .ToList() _
             .ForEach(Sub(form) form.Close())
       '.Except({Form3})   هذالاستثناء الفورم المحدد من الغلق هنا فورم 3 لن تغلق
   End Sub

الف شكر اخي علي اهتمامك 
وجزاكم الله خيرا علي الكود
الكود اشتغل كويس الحمد لله 
بارك الله فيك وزادك الله علما