Konvertering: C# til VB.Net

En del af det:
Dim WidthVsHeightRatio As Double = CType(originalBitmap.Width, Single) / CType(originalBitmap.Height, Single)
' Using
Dim newg As Graphics = Graphics.FromImage(newbmp)
Try
newg.Clear(Color.White)
If WidthVsHeightRatio = 1 Then
  newg.DrawImage(originalBitmap, 0, 0, 100, 100)
  newg.Save
Else
  If WidthVsHeightRatio < 1 Then
    newg.DrawImage(originalBitmap, New RectangleF(New PointF(CType((50 - ((100 * WidthVsHeightRatio) / 2)), Single), 0), New SizeF(CType((100 * WidthVsHeightRatio), Single), 100F)))
    newg.Save
  Else
    Dim inverse As Double = Math.Pow(WidthVsHeightRatio, -1)
    newg.DrawImage(originalBitmap, New RectangleF(New PointF(0, CType((50 - ((100 * inverse) / 2)), Single)), New SizeF(100F, CType((100 * inverse), Single))))
    newg.Save
    newg.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
  End If
End If
Finally
CType(newg, IDisposable).Dispose()
End Try

newbmp.Save(Server.MapPath("~/images/1_resized.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

Dim FileToResize As String = Server.MapPath("~/images/1.jpg")
Dim originalBitmap As Bitmap = CType(ConversionHelpers.AsWorkaround(Bitmap.FromFile(FileToResize, True), GetType(Bitmap)), Bitmap)
Dim newbmp As Bitmap = New Bitmap(100, 100)
Dim WidthVsHeightRatio As Double = CType(originalBitmap.Width, Single) / CType(originalBitmap.Height, Single)
' Using
Dim newg As Graphics = Graphics.FromImage(newbmp)
Try
newg.Clear(Color.White)
If WidthVsHeightRatio = 1 Then
  newg.DrawImage(originalBitmap, 0, 0, 100, 100)
  newg.Save
Else
  If WidthVsHeightRatio < 1 Then
    newg.DrawImage(originalBitmap, New RectangleF(New PointF(CType((50 - ((100 * WidthVsHeightRatio) / 2)), Single), 0), New SizeF(CType((100 * WidthVsHeightRatio), Single), 100F)))
    newg.Save
  Else
    Dim inverse As Double = Math.Pow(WidthVsHeightRatio, -1)
    newg.DrawImage(originalBitmap, New RectangleF(New PointF(0, CType((50 - ((100 * inverse) / 2)), Single)), New SizeF(100F, CType((100 * inverse), Single))))
    newg.Save
    newg.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
  End If
End If
Finally
CType(newg, IDisposable).Dispose()
End Try
newbmp.Save(Server.MapPath("~/images/1_resized.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

Der findes converters man kan benytte:
http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx

En using i C# betyder at der kaldes en Dispose i sliutningen. Derfor er denne oversættesle måske en smule mere korrekt:

        Dim FileToResize As String = Server.MapPath("~/images/1.jpg")

        Dim originalBitmap As Bitmap = Bitmap.FromFile(FileToResize, True)
        Dim newbmp As Bitmap = New Bitmap(100, 100)

        Dim WidthVsHeightRatio As Double = CType(originalBitmap.Width, Single) / CType(originalBitmap.Height, Single)

        Dim newg As Graphics = Graphics.FromImage(newbmp)

        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(CType(50 - 100 * WidthVsHeightRatio / 2, Single), 0), New SizeF(CType(100 * WidthVsHeightRatio, Single), 100.0F)))
            newg.Save()
        Else
            Dim inverse As Double = Math.Pow(WidthVsHeightRatio, -1)
            newg.DrawImage(originalBitmap, New RectangleF(New PointF(0, CType(50 - 100 * inverse / 2, Single)), New SizeF(100.0F, CType(100 * inverse, Single))))
            newg.Save()
            newg.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
        End If


        newbmp.Save(Server.MapPath("~/images/1_resized.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

        ' Her mangler måske noget af den kode du ikke har postet.

        originalBitmap.Dispose()
        newbmp.Dispose()

Hov, glemte en enkelt Dispose:

        Dim FileToResize As String = Server.MapPath("~/images/1.jpg")

        Dim originalBitmap As Bitmap = Bitmap.FromFile(FileToResize, True)
        Dim newbmp As Bitmap = New Bitmap(100, 100)

        Dim WidthVsHeightRatio As Double = CType(originalBitmap.Width, Single) / CType(originalBitmap.Height, Single)

        Dim newg As Graphics = Graphics.FromImage(newbmp)

        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(CType(50 - 100 * WidthVsHeightRatio / 2, Single), 0), New SizeF(CType(100 * WidthVsHeightRatio, Single), 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, CType(50 - 100 * inverse / 2, Single)), New SizeF(100.0F, CType(100 * inverse, Single))))
            newg.Save()
            newg.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
        End If

        newg.Dispose()

        newbmp.Save(Server.MapPath("~/images/1_resized.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

        ' Her mangler måske noget af den kode du ikke har postet.

        originalBitmap.Dispose()
        newbmp.Dispose()

Hej med jer,

Jeg beklager min sene tilbagemelding - jeres svar er bestemt værdsatte!!

Jeg har prøvet begge forslag, og er endt med at benytte nielles, da dr chaos' gav mig fejl.

Jeg vil gerne fordele pointene ml. jer med 150 til Nielle og 50 til dr chaos - så smid et svar..

Endnu engang tak!

svar :)

Svar :^)

Tak :-)