[سؤال] تغيير كود جافا الى فيجوال بيسك

PHP كود :

       ' نحدد الصورة المراد تقسيمها
        ' هنا أن أضفتها لفهرس المشروع
        ' يمكن تحديد الصورة الأصلية بأساليب كثيرة أخري
        Dim source As Bitmap = My.Resources.silver
        ' نعرف متغير يحد عدد الصور 
        Dim count As Integer = 10
        ' نحدد عرض الصورة الصغيرة
        Dim chunkWidth As Integer = source.Width() / count
        ' نحدد طول الصورة الصغيرة
        Dim chunkHeight As Integer = source.Height() / count
        ' نعرف المصفوفة التي سنملأها بالصور الصغيرة  
        Dim bitmaps As List(Of Bitmap) = New List(Of Bitmap)()

        ' نقوم بباء حلقة الدوران لكي نقتطع الصور الصغيرة من الصورة الأصلية
        Dim x As Integer = 0
        Dim y As Integer = 0
        While x < count
            While y < count
                ' تعريف االصورة الصغيرة
                Dim current As Bitmap = New Bitmap(chunkWidth, chunkHeight, source.PixelFormat)
                ' نرسم الصورة الصغيرة
                Using g As Graphics = Graphics.FromImage(current)
                    Dim dstRect As Rectangle = New Rectangle(0, 0, chunkWidth, chunkHeight)
                    Dim srcRect As Rectangle = New Rectangle(chunkWidth * y, chunkHeight * x, chunkWidth * y + chunkWidth, chunkHeight * x + chunkHeight)
                    ' عملية الرسم تتم باقتطاع الجزء المحدد مكانه علي الصورة الأاصلية
                    g.DrawImage(source, dstRect, srcRect, GraphicsUnit.Pixel)
                End Using
                ' نضيف الصورة الصغيرة للمصفوفة
                bitmaps.Add(current)
                y += 1
            End While
            x += 1
        End While

        ' حلقة دورام لكي نحفظ الصورة علي فهرس المشروع
        Dim i As Integer = 0
        While i < bitmaps.Count
            Dim bmp As Bitmap = bitmaps(i)
            bmp.Save(".\image" + i.ToString + ".jpg")
            i += 1
        End While

كود :

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

    Using OpenFileDialog1 As New OpenFileDialog With {.Filter = "Images|*.png;*.jpg;*.jpeg;*.bmp;*.gif"}

        If OpenFileDialog1.ShowDialog = vbOK Then

            Dim file As String = OpenFileDialog1.FileName ' "bear.jpg"

            Dim image As Image = image.FromFile(file) 'reading the image file

            Dim rows As Integer = 4 'You should decide the values for rows and cols variables

            Dim cols As Integer = 4

            Dim chunks As Integer = rows * cols

            Dim chunkWidth As Integer = image.Width / cols ' determines the chunk width and height

            Dim chunkHeight As Integer = image.Height / rows

            Dim count As Integer = 0

            Dim imgs(chunks - 1) As Image 'Image array to hold image chunks

            For x As Integer = 0 To rows - 1

                For y As Integer = 0 To cols - 1

                    'Initialize the image array with image chunks

                    imgs(count) = New Bitmap(chunkWidth, chunkHeight)

                    ' draws the image chunk

                    Dim gr As Graphics = Graphics.FromImage(imgs(count))

                    gr.DrawImage(image, New Rectangle(0, 0, chunkWidth, chunkHeight), New Rectangle(chunkWidth * y, chunkHeight * x, chunkWidth, chunkHeight), GraphicsUnit.Pixel)

                    count += 1

                    gr.Dispose()

                Next

            Next

            MsgBox("Splitting done")

            'writing mini images into image files

            Dim dir As String = Application.StartupPath & "\Chunks\"

            If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)

            For i As Integer = 0 To imgs.Length - 1

                imgs(i).Save(dir & "\img" & i & ".jpg")

            Next

            MsgBox("Mini images created")

        End If

    End Using

End Sub