[Aly El-Haddad]

السلام عليكم و رحمة الله و بركا[SIZE=5]ته،[/SIZE]

كود :

[b][SIZE=4]    Public Function CropImage(ByVal img As System.Drawing.Image, ByVal croppingRect As System.Drawing.Rectangle) As System.Drawing.Image
        Using bmp As New Bitmap(img)
            If (croppingRect.X > img.Width) OrElse (croppingRect.Y > img.Height) Then
                Return New Bitmap(croppingRect.Width, croppingRect.Height)
                Exit Function
            End If
            If ((croppingRect.X + croppingRect.Width) > img.Width) Then
                croppingRect.Width = (img.Width - croppingRect.X)
            End If
            If ((croppingRect.Y + croppingRect.Height) > img.Height) Then
                croppingRect.Height = (img.Height - croppingRect.Y)
            End If
            Return bmp.Clone(croppingRect, bmp.PixelFormat)
        End Using
    End Function

[/SIZE][/b]

[SIZE=4]الدالة تقوم بقص [SIZE=4]جزء من الصورة المعطاه في ال[SIZE=4]باراميتر img قدره [SIZE=4]الباراميتر cr[SIZE=4]oppingRect

[SIZE=4]مثال على قص ج[SIZE=4]زء[SIZE=4] م[SIZE=4]ن الصورة [SIZE=4]مساحته 50, 50 و يبدأ من الن[SIZE=4]قطة 10, 10 في الصورة myIm[SIZE=4]g و عرض[SIZE=4]ه في أدا[SIZE=4]ة PictureBox1[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]

كود :

PictureBox1.Image = CropImage(myImg, New Rectangle(10, 10, 50, 50))