IsMdiChild!

Dim OffData As New OfficeData
With OffData
      .MdiParent = mForm
      .Show()
End With

حيث mForm هي الـ MDI Form

قمت بكدابة الكود التالي ولم تعمل أخي بن ملعاط :(

اقتباس

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim OffData As New OfficeData

        With OffData

            .MdiParent = Form2

            .Show()

        End With

    End Sub

End Class

وأرجوا توضيح عمل الكود

أريد أن افهم :blink:

:rolleyes: جزاك الله خيرا

لنفرض أن الفورم الرئيسي هو mForm

والفورم الابن هو Form2

عند إظهار الفورم Form2

نكتب التالي

Dim mForm2 As New Form2 
With mForm2 
     .MdiParent = mForm
     .Show()
End With

حيث في هذا السطر

MdiParent = mForm

يتم تعريف mForm2 على أنه تابع للفورم الرئيسي mForm

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim mForm2 As New Form2
        With mForm2
            .MdiParent = Me
            .Show()
        End With

    End Sub

:( ما أدري فين المشكله الكود لايوجد فيه اي خطأ

لكن لم يضمن مع الرئيسيه على انه تابع..!! :unsure:

هل من الممكن وضع مثالك لمراجعة الكود

تفضل الملف

فالإنتظار :rolleyes:

www.rar

السلام عليكم

الخطاء فى المثال هوة التالى

الكود الخاص بفتح الشاشة MdiParent مكتوب فى MenuItem1

اما الكود المكتوب فى Button1 هيفتح الشاشة بشكل عادى

قومى بتغير الكود الخاص بى button الى الكود التالى

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mForm2 As New Form2
        With mForm2
            .MdiParent = Me
            .Show()
        End With
    End Sub

كما ذكر الأخ الكريم waleedhm

فعندما يتم الضغط على Button1 كان يتنفذ هذا الكود

وليس فيه تحديد للشاشة الأم للشاشة F

ضعي الكود كما ذكر الأخ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        Dim F As New Form2
        F.Show()
End Sub

يعطيكم ربي ألف عافية إخواني

waleedhm

بن ملعاط

:lol: تم الحصول على المطلوب

:lol: وشكرا على التوضيح

:unsure: والله يعينكم عليا فأنا مبتدأة فالدوت نت

B) ****** تحياتي

----------- :rolleyes: