24-02-20, 01:17 PM
(آخر تعديل لهذه المشاركة : 24-02-20, 01:48 PM {2} بواسطة alsalamoni.)
(24-02-20, 01:10 PM)alshandodi كتب : نعم بالظبط هكذا اخي المقصد
ضع بدلا من Form2 اسم شاشة المنتجات
كود :
If Application.OpenForms.Cast(Of Form).OfType(Of Form2)().Count = 0 Then
Dim frm As New Form2
frm.MdiParent = Me
frm.Show()
Else
Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).WindowState = FormWindowState.Normal
Application.OpenForms.Cast(Of Form).OfType(Of Form2)()(0).Activate()
End Ifهل هذا الكود قام بما تريد؟
تم تحسين الكود
تنشيط شاشة المنتجات اذا كانت مفتوحة في حالة محاولة فتحها اكثر من مرة