User-512273051 posted
Well I tried it alot but due to the lack of time I tried to manege the height stuff only. Maybe it can help you to proceed this further or give me a day so that I can do that for you .
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileToResize As String = "C:\image\agha.jpg"
Using originalBitmap As Bitmap = Bitmap.FromFile(FileToResize, True), newbmp As Bitmap = New Bitmap(100, 100)
Dim WidthVsHeightRatio = CDec(originalBitmap.Width) / CDec(originalBitmap.Height)
Using newg As Graphics = Graphics.FromImage(newbmp)
newg.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
newg.Clear(Color.White)
If WidthVsHeightRatio = 1D Then
newg.DrawImage(originalBitmap, 0, 0, 100, 100)
newg.Save()
ElseIf WidthVsHeightRatio < 1D Then 'Image is taller than wider
newg.DrawImage(originalBitmap, New RectangleF(New PointF((50 - (100 * WidthVsHeightRatio) / 2), 0), New SizeF(100 * WidthVsHeightRatio, 100.0F)))
newg.Save()
Else 'Image is wider than taller
Dim inverse As Double = Math.Pow(WidthVsHeightRatio, -1)
newg.DrawImage(originalBitmap, New RectangleF(New PointF(0, 50 - ((100 * inverse) / 2)), New SizeF(100.0F, 100 * inverse)))
newg.Save()
End If
End Using
Dim startPoint As Point = getStartXY(newbmp.Height, newbmp.Width, newbmp)
Dim EndPoint As Point = GetEndXY(newbmp.Height, newbmp.Width, newbmp)
Response.Write(startPoint)
Response.Write(EndPoint)
Dim myBmp As Bitmap = CropBitmap(newbmp, startPoint.X, startPoint.Y, (newbmp.Width - startPoint.X), EndPoint.Y)
myBmp.Save(Server.MapPath("tn_agha.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
End Using
End Sub
Public Function getStartXY(ByVal Height As Int32, ByVal Width As Int32, ByVal img As Bitmap) As Point
Dim y As Integer
For y = 0 To Height - 1
Dim x As Integer
For x = 0 To Width - 1
Dim pixel As Color = img.GetPixel(x, y)
If Not pixel.R = 255 And pixel.G = 255 And pixel.B = 255 Then
Return New Point(x, y)
End If
Next
Next
End Function
Public Function GetEndXY(ByVal Height As Int32, ByVal Width As Int32, ByVal img As Bitmap) As Point
Dim y As Integer
For y = Height - 1 To 0 Step -1
Dim x As Integer
For x = Width - 1 To 0 Step -1
Dim pixel As Color = img.GetPixel(x, y)
If Not pixel.R = 255 And pixel.G = 255 And pixel.B = 255 Then
Return New Point(x, y)
End If
Next
Next
End Function
Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap
Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)
Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat)
Return cropped
End Function
