قص جزء من الصورة

بسم الله الرحمن الرحيم

اخى العزيز

  Dim path As String = "C:\بحر3.jpg"
        Using orignal As New Bitmap(path)
            Using newimage As New Bitmap(CInt(Math.Truncate(orignal.Width * 0.5)), CInt(Math.Truncate(orignal.Height * 0.5)))
                Using newgraphics As Graphics = Graphics.FromImage(newimage)
                    newgraphics.DrawImage(orignal, 0, 0, New Rectangle(newimage.Width, newimage.Height, orignal.Width - newimage.Width, orignal.Height - newimage.Height), GraphicsUnit.Pixel)
                    newgraphics.Flush()
                End Using

                newimage.Save(New System.IO.FileInfo(path).DirectoryName & "out.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
            End Using
        End Using

ظبط انت الاتجاهات لشكل الصورة اللى انت عاوزه

اتمنى اكون افدتك

أشكرك اخي

فعلا ماكنت ابحث عنه

شكره مرة آخرى