23-03-21, 04:03 PM
(آخر تعديل لهذه المشاركة : 23-03-21, 04:09 PM {2} بواسطة رضوان الجماعي.)
"Dim St As String = "Form
For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
If Not Application.OpenForms(i).Text = St Then ' Text
or name
()Application.OpenForms(i).Close
End If
Next
بامكانك تجرب هذا الكود
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة .
