MDI Form and Child Form

اذا كنت تستخدم 2005 فما عندك مشكلة بتاتا

يمكنك فتح النموذج بدون استخدام new

يعني افتح على طول

اما 2003 وماقبل فيجود موضوع في المنتدى مشروح فيه كامل

عبارة عن كود صغير

سوي بحث

for each f as form in me.mdichild

if not f.name = "اسم النموذج اللي تبغى تفتحه" then

f.show

exit for

end if

next

أولا نعرف المتغير خارج الحدث كالتالي

dim child as form2

وداخل الحدث نكتب الكود التالي

if child is nothing

child = new form2

child.parent = me

end if

child.show

جرب هذا الكود ..

مجرب وقوي ان شاء الله ..

Try
            frmCO.MdiParent = Me
            If IsNothing(frmCO) = False Then
                If frmCO.IsDisposed = False Then
                    frmCO.Show()
                Else : frmCO = New frmYour : frmCO.MdiParent = Me
                    frmCO.Show()
                End If
            Else
                frmCO = New frmYour : frmCO.MdiParent = Me
                frmCO.Show()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

ابوخالد العيدروس كتب:

جرب هذا الكود ..

مجرب وقوي ان شاء الله ..

Try
            frmCO.MdiParent = Me
            If IsNothing(frmCO) = False Then
                If frmCO.IsDisposed = False Then
                    frmCO.Show()
                Else : frmCO = New frmYour : frmCO.MdiParent = Me
                    frmCO.Show()
                End If
            Else
                frmCO = New frmYour : frmCO.MdiParent = Me
                frmCO.Show()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

هل من الممكن ان تشرح لنا هذا الكود لو تكرمت
شكرا

←

السلام عليكم

راجع الموضوع دة كمان هينفعك اقووووى فية شرح لموضوع فتح الفورم مرة واحدة

/index.php?showtopic=95279