01-12-12, 01:52 PM
السلام عليكم و رحمة الله و بركا[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] م[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))