سورس کد بزرگنمایی تصاویر (vb.net)

کد:

Instructions: Need a reference to the System.Drawing.Drawing2D Namespace

کد پی‌اچ‌پی:

Public Function ZoomImage(ByVal img As System.Drawing.Image, ByVal ZoomValue As Int32) As System.Drawing.Image
    Dim width As Int32 = Convert.ToInt32(img.Width * ZoomValue) / 100
    Dim height As Int32 = Convert.ToInt32(img.Height * ZoomValue) / 100
    'Create a new image based on the zoom parameters we require
    Dim zoomImage As New System.Drawing.Bitmap(img, width, height)

    'Create a new graphics object based on the new image
    Dim converted As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(zoomImage)

    'Clean up the image
    converted.InterpolationMode = InterpolationMode.HighQualityBicubic

    'Return the zoomed image
    Return zoomImage
End Function