ابي تعديل على مشروعي - نسخة قابلة للطباعة

كود :

Public Class Form2



    ' تعريف مصفوفة لحفظ الصور

    Private imageFiles() As Bitmap = Nothing

    '  تعريف عداد للصور

    Dim counter As Integer = 0



    Private Sub ShowImage(bmp As Bitmap, picBox As PictureBox)

        picBox.Image = bmp

    End Sub



    Private Function GetImageFiles() As Bitmap()

        ' أضف العددي المطلوب من الصور

        Dim imageList As List(Of Bitmap) = New List(Of Bitmap) From {My.Resources.g__2_.Clone, My.Resources.g__3_.Clone, My.Resources.g__4_.Clone}

        ' استرجع الصور

        Return imageList.ToArray

    End Function



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.counter += 1

        ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.counter -= 1

        ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)

    End Sub





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

        imageFiles = GetImageFiles()

        Me.PictureBox1.Image = imageFiles(0)

    End Sub



End Class

كود :

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

كود :

Public Class Form3



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

        Form1.Show()

    End Sub



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

End Class

كود :

Public Class Form4



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

        Form1.Show()

    End Sub



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



End Class

كود :

Public Class Form5



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

        Form1.Show()

    End Sub



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

End Class