+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : قص جزء من الصورة (/showthread.php?tid=7198)
قص جزء من الصورة - Aly El-Haddad - 01-12-12
السلام عليكم و رحمة الله و بركا[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))قص جزء من الصورة - sooriaty03 - 01-12-12
جزاك الله خيرا
ونفع بك
ووفقك
قص جزء من الصورة - محمد عكور - 20-02-13
جزاك الله خير
قص جزء من الصورة - kslawy - 07-07-13
بارك الله فيك أخي الكريم