[codepoet]

originally posted on dotnet-snippets.com

Description:

Automatically resize an image so it shows ok in the picturebox on your form. It doesn't change the actual image.

Code

Public Sub AutosizeImage(ByVal ImagePath As String, ByVal picBox As PictureBox, Optional ByVal pSizeMode As PictureBoxSizeMode = PictureBoxSizeMode.CenterImage)
        Try
            picBox.Image = Nothing
            picBox.SizeMode = pSizeMode
            If System.IO.File.Exists(ImagePath) Then
                Dim imgOrg As Bitmap
                Dim imgShow As Bitmap
                Dim g As Graphics
                Dim divideBy, divideByH, divideByW As Double
                imgOrg = DirectCast(Bitmap.FromFile(ImagePath), Bitmap)

                divideByW = imgOrg.Width / picBox.Width
                divideByH = imgOrg.Height / picBox.Height
                If divideByW > 1 Or divideByH > 1 Then
                    If divideByW > divideByH Then
                        divideBy = divideByW
                    Else
                        divideBy = divideByH
                    End If

                    imgShow = New Bitmap(CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy))
                    imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                    g = Graphics.FromImage(imgShow)
                    g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    g.DrawImage(imgOrg, New Rectangle(0, 0, CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy)), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                    g.Dispose()
                Else
                    imgShow = New Bitmap(imgOrg.Width, imgOrg.Height)
                    imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                    g = Graphics.FromImage(imgShow)
                    g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    g.DrawImage(imgOrg, New Rectangle(0, 0, imgOrg.Width, imgOrg.Height), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                    g.Dispose()
                End If
                imgOrg.Dispose()

                picBox.Image = imgShow
            Else
                picBox.Image = Nothing
            End If


        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

If You Like this tutorial, please check out my other tutorials by clicking ==> H3R3

[Zer0Fact0r]

Lol or you could set the PictureBox's SizeMode to Zoom.

[codepoet]

Lol or you could set the PictureBox's SizeMode to Zoom.

no comment...considering your post count.

[DeadCode]

Lol or you could set the PictureBox's SizeMode to Zoom.

This is correct.

[Dragon Hawk]

Lol or you could set the PictureBox's SizeMode to Zoom.

but some time it doesnt works it has happened to me

thanks crow

[๖ۣۜBlueAce™]

no comment...considering your post count.

why.. what he said is absolutely right .. i believe... 😉

[HaXZX0r]

Or you can set the picturebox´s sizemode to STRETCHIMAGE

[codepoet]

why.. what he said is absolutely right .. i believe... 😉

he is right but the point of this tutorial is to give you an option...and he made it seem like this code is useless...but i don't want to flame so just for get it.

[Deathader]

Or you can set the picturebox´s sizemode to STRETCHIMAGE

/thread