Public Function GetCropImage(fromImage As Image, x As Integer, y As Integer, width As Integer, height As Integer) As Image
Dim crpRect As New Rectangle(New Point(x, y), New Size(width, height))
Dim retRect As New Rectangle(0, 0, crpRect.Width, crpRect.Height)
Dim crpImage As New Bitmap(width, height)
Dim g = Graphics.FromImage(crpImage)
g.DrawImage(fromImage, retRect, crpRect, GraphicsUnit.Pixel)
Return crpImage
End Function
Private cropSize As New Size(30, 30)
Private Sub PictureBox1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Me.PictureBox2.Image = GetCropImage(Me.PictureBox1.Image, e.X, e.Y, cropSize.Width, cropSize.Height)
End Sub
(14-08-16, 02:27 AM)أسامة السالمي كتب : [ -> ]أتمنى يفيدك هذا المثال :بارك الله فيك فكرة رائعة و استفدت منها كثير بارك الله فيك
ضع الفورم على الصورة التي تريد الاقتطاع منها
واجعل حدود الفورم مطابقة للحجم الذي تريده
ثم اضغط على الفورم بزر الفأرة الأيمن وحدد "حفظ الصورة"