10-08-23, 12:48 AM
10-08-23, 02:45 AM
Dim formsToClose As New List(Of Form)()
For Each form As Form In Application.OpenForms
If form.Name <> "home" Then
formsToClose.Add(form)
End If
Next
For Each formToClose As Form In formsToClose
formToClose.Close()
Next
For Each form As Form In Application.OpenForms
If form.Name <> "home" Then
formsToClose.Add(form)
End If
Next
For Each formToClose As Form In formsToClose
formToClose.Close()
Next
11-08-23, 04:04 AM
شكرا لك .....
14-08-23, 10:20 AM
(( احتاج كود يغلق جميع الفورم المفتوح دفعة واحدة ويبقي فقط الفورم Home ؟ )) بعد تجربه الكود اغلق كل الموجود حتى Home ما الخطأ عندي
15-08-23, 06:43 PM
كل نافذة لها خاصية الاسم (Form1.Name) وخاصية التسمية الظاهرة(Form1.Text)..
راجع مشروعك وانتبه لاسم النافذة الرئيسية(الرئيسية وليس أي واحدة أخرى لأن اغلاق الرئيسية يعني اغلاق الكل)
يجب أن يكون اسم النافذة الرئيسية(وليس أي نافذة أخرى) بحسب الكود أعلاه هو (Form1.Name = Home)
وبذا سيتم نجاح تنفيذ الكود ..
وعدا عن ذلك فالكود سيقوم بإغلاق كل النوافذ دون استثناء..
راجع مشروعك وانتبه لاسم النافذة الرئيسية(الرئيسية وليس أي واحدة أخرى لأن اغلاق الرئيسية يعني اغلاق الكل)
يجب أن يكون اسم النافذة الرئيسية(وليس أي نافذة أخرى) بحسب الكود أعلاه هو (Form1.Name = Home)
وبذا سيتم نجاح تنفيذ الكود ..
وعدا عن ذلك فالكود سيقوم بإغلاق كل النوافذ دون استثناء..