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