[silverlight]

للاسف حجم المشروع كبير و لا أستطيع اضافته الي المرفقات خاصة في وجود الصور الموجودة بالمشروع

عموما في الفورم الرئيسي اكتب الكود بالشكل التالي

كود :

Public Class Form1

   Private selectedform As Integer = -1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.selectedform = 0
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.selectedform = 1
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Me.selectedform = 2
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Me.selectedform = 3
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       Me.Hide()
       If Me.selectedform <> -1 Then
           Select Case Me.selectedform
               Case 0
                   Form2.Show()
                   Exit Select
               Case 1
                   Form3.Show()
                   Exit Select
               Case 2
                   Form4.Show()
                   Exit Select
               Case 3
                   Form5.Show()
                   Exit Select

           End Select
       End If
   End Sub

End Class

في الفورم الثاني كما في المشاركات السابقة 


في الفورم الثالث اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2

كود :

Public Class Form3

   Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
       Form1.Show()
   End Sub

   ' اكتب بقية الأكواد كما هو موضح في الفورم الثاني
End Class

في الفورم الرابع اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2

كود :

Public Class Form4

   Private Sub Form4_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
       Form1.Show()
   End Sub

   ' اكتب بقية الأكواد كما هو موضح في الفورم الثاني

End Class

في الفورم الخامس اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2

كود :

Public Class Form5

   Private Sub Form5_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
       Form1.Show()
   End Sub

   ' اكتب بقية الأكواد كما هو موضح في الفورم الثاني
End Class

ملحوظة:

حاول ان تعطي أسماء لكل فورم يتناسب مع الهدف منه مثلا Form1 اعطه اسم MainForm و الفورم الخاص بالمجالس يمكنك أن تطلق عليه SofaForm و هذا سوف يجعل من كتابة الكود اسهل لك و هكذا بالنسبة لبقية الفورم
 و يمكنك أن تفعل نفس الشئ بالنسبة للباتون الموجودة في الفورم الأول