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

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

أريد كود لغلق جميع النوافذ عند تسجيل الخروج - Emam emam - 06-07-23

السلام عليكم
لو سمحتوا أريد عند الضغط علي تسجيل الخروج يقوم البرنامح بغلق جميع الشاشات ويقوم بفتح شاشة تسجيل الدخول
كنت استعمل كود وكان شغال زي الفل بس لما غيرت البرنامح واستخدمت ال DevExpress  الكود لايعمل 
فما الحل
PHP كود :
My.Application.OpenForms.Cast(Of Form)() _
            .Except({LoginFRM}) _
            .ToList() _
            .ForEach(Sub(form) form.Close()) 


RE: أريد كود لغلق جميع النوافذ عند تسجيل الخروج - aljzazy - 09-07-23

[font=Söhne, ui-sans-serif, system-ui, -apple-system,]First, make sure that you have a module or a class that keeps track of all open forms. You can create a module called  [/font]"FormManager" and declare a list to store the references to the open forms

كود :
Module FormManager
   Public OpenForms As New List(Of Form)()

   Public Sub AddForm(ByVal form As Form)
       OpenForms.Add(form)
   End Sub

   Public Sub RemoveForm(ByVal form As Form)
       OpenForms.Remove(form)
   End Sub
End Module
[font=Söhne, ui-sans-serif, system-ui, -apple-system,]Next, in your main form (the one that opens initially), add an event handler for the FormClosing event. Inside the event handler, you can close all open forms and open the login form:[/font]

كود :
Public Class MainForm
   Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       FormManager.AddForm(Me)
   End Sub

   Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
       For Each form As Form In FormManager.OpenForms
           form.Close()
       Next

       Dim loginForm As New LoginForm()
       loginForm.Show()
   End Sub
End Class


RE: أريد كود لغلق جميع النوافذ عند تسجيل الخروج - Emam emam - 10-07-23

اخي aljzazy  يعجز لساني عن شكرك 

بارك الله فيك وجعله الله في ميزان حسناتكم

الحمد لله الكود شغال زي الفل