منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : للخروج من كل الفورم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي زر تسجيل الخروج فعند الضغط عليه يقوم باغلاق كل الفورم ويفتح لي شاشة تسحيل الدخول
ولكن المشكله ان فيه فورم ممكن يكون مفتوح في الخلف 
فاريد عند الضغط يقوم بالخروج من كل الفورم حتي الرءيسيه  ويفتح شاشة تسجيل الدخول
وجزاكم الله خيرا
(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
(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

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