Visual Basic

<br />
    Friend Sub renderPicture()<br />
        Dim previewFile, tempPreviewFile As String<br />
        Dim numberOfSelectedItem As Integer<br />
        Dim bitmapSource As Bitmap<br />
        Dim graphicDestination As Graphics<br />
        Dim selectedFileName As String<br />
        Dim scale As Single<br />
<br />
        If Not picPreview.Image Is Nothing Then<br />
            picPreview.Image.Dispose()<br />
        End If<br />
<br />
        If Not bitmapDestination Is Nothing Then<br />
            bitmapDestination.Dispose()<br />
        End If<br />
<br />
        numberOfSelectedItem = lstFiles.SelectedItems.Count<br />
<br />
        If numberOfSelectedItem > 0 Then<br />
            Dim dummy = lstFiles.SelectedItems.Item(numberOfSelectedItem - 1)<br />
            previewFile = UCase(previewCachePath).Replace("SCANNED FILES", "SCANNE~1") & Mid(dummy, 1, Len(dummy) - 4) & "001.png"<br />
            tempPreviewFile = UCase(previewCachePath).Replace("SCANNED FILES", "SCANNE~1") & Mid(dummy, 1, Len(dummy) - 4) & "[t].png"<br />
            If System.IO.File.Exists(previewFile) Then<br />
                If Not System.IO.File.Exists(tempPreviewFile) Then<br />
                    System.IO.File.Copy(previewFile, tempPreviewFile)<br />
                End If<br />
            End If<br />
<br />
            Try<br />
                bitmapSource = New Bitmap(Bitmap.FromFile(tempPreviewFile))<br />
            Catch ex As Exception<br />
                Module1.setErrMsg(ex.Message)<br />
                Exit Sub<br />
            End Try<br />
            Select Case cmbZoom.Text<br />
                Case "150%"<br />
                    scale = CSng(1.5)<br />
                Case "125%"<br />
                    scale = CSng(1.25)<br />
                Case "100%"<br />
                    scale = CSng(1.0)<br />
                Case "75%"<br />
                    scale = CSng(0.75)<br />
                Case "50%"<br />
                    scale = CSng(0.5)<br />
                Case "25%"<br />
                    scale = CSng(0.25)<br />
                Case "Fit Width"<br />
                    scale = CSng((panPreview.Width - 17) / bitmapSource.Width)<br />
                Case Else<br />
                    Module1.setErrMsg("Error on Wrong Zoom Scale")<br />
                    Exit Sub<br />
            End Select<br />
<br />
            'If scale = CSng(9.9) Then<br />
            '    scale = CSng((picPreview.Width) / bitmapSource.Width)<br />
            'End If<br />
            bitmapDestination = New Bitmap(CInt(bitmapSource.Width * scale), CInt(bitmapSource.Height * scale))<br />
            graphicDestination = Graphics.FromImage(bitmapDestination)<br />
            graphicDestination.DrawImage(bitmapSource, 0, 0, bitmapDestination.Width + 1, bitmapDestination.Height + 1)<br />
            picPreview.Width = bitmapDestination.Width<br />
            picPreview.Height = bitmapDestination.Height<br />
            picPreview.Image = bitmapDestination<br />
            bitmapSource.Dispose()<br />
            graphicDestination.Dispose()<br />
        Else<br />
            picPreview.Image = Nothing<br />
        End If<br />
    End Sub<br />