Visual Basic

<br />
Public Class SizeImage<br />
    Inherits System.Web.UI.Page<br />
<br />
#Region " Web Form Designer Generated Code "<br />
<br />
    'This call is required by the Web Form Designer.<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
<br />
    End Sub<br />
<br />
    'NOTE: The following placeholder declaration is required by the Web Form Designer.<br />
    'Do not delete or move it.<br />
    Private designerPlaceholderDeclaration As System.Object<br />
<br />
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init<br />
        'CODEGEN: This method call is required by the Web Form Designer<br />
        'Do not modify it using the code editor.<br />
        InitializeComponent()<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        'Put user code to initialize the page here<br />
        Dim ImageURL As String<br />
        Dim Width, Height, imageWidth, imageHeight As Integer<br />
        Dim ScaleFactor As Double<br />
<br />
        Dim FullImage As System.Drawing.Image<br />
        Dim ThumbImage As System.Drawing.Image<br />
        Dim dummyCallBack As System.Drawing.Image.GetThumbnailImageAbort<br />
<br />
        'Get the stuff off the Querystring<br />
        ImageURL = Request.QueryString.Item("ImageURL").ToString<br />
        ImageURL = Server.UrlDecode(ImageURL)<br />
        ImageURL = Server.MapPath(ImageURL)<br />
        Try<br />
            Width = Request.QueryString.Item("Width")<br />
            Height = Request.QueryString.Item("Height")<br />
        Catch ex As Exception<br />
            Width = 120<br />
            Height = 120<br />
        End Try<br />
<br />
        'Setup to be able to return the thumbnail<br />
        dummyCallBack = New _<br />
           System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)<br />
<br />
        'Let's go get this image<br />
        FullImage = System.Drawing.Image.FromFile(ImageURL)<br />
<br />
        'Let's get the image's dimensions<br />
        imageWidth = FullImage.Width<br />
        imageHeight = FullImage.Height<br />
<br />
        'see if we need to size this image<br />
        If imageWidth > Width OrElse imageHeight > Height Then<br />
            'Figure out which dimension is the bigger of the two<br />
            If (imageWidth - Width) >= (imageHeight - Height) Then<br />
                'The width will be the dimension scale, or it's a square<br />
                'in which case, this will work just fine.<br />
                ScaleFactor = Width / imageWidth<br />
            Else<br />
                'The height is the limiting dimension, so scale based on that<br />
                ScaleFactor = Height / imageHeight<br />
            End If<br />
            'Use the determined scalefactor to get the dimension size we need for each dimension<br />
            Width = ScaleFactor * imageWidth<br />
            Height = ScaleFactor * imageHeight<br />
            'Rotate/Flip twice (end up with original image, still)<br />
            'This is done so the EXIF thumbnail is not used<br />
            FullImage.RotateFlip(RotateFlipType.Rotate180FlipNone)<br />
            FullImage.RotateFlip(RotateFlipType.Rotate180FlipNone)<br />
            ThumbImage = FullImage.GetThumbnailImage(Width, Height, dummyCallBack, IntPtr.Zero)<br />
        Else<br />
            ThumbImage = FullImage<br />
        End If<br />
        ThumbImage.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)<br />
<br />
        'Cleanup area<br />
        ThumbImage.Dispose()<br />
        FullImage.Dispose()<br />
    End Sub<br />
<br />
    Function ThumbnailCallback() As Boolean<br />
        Return False<br />
    End Function<br />
<br />
End Class<br />

Dim newTS As New TimeSpan
Dim fileValue As String

' read the TimeSpan from the file and put it in fileValue.
newTS = TimeSpan.Parse( fileValue )