resize image on import

[jimday1982]

I was wondering if anyone knows of a way to specify the size of an image on import into my program. For instance, if the user imports a 500 x 500 picture, i need it to fit my 100x100 picture box. I know about the autosize property and all that, but there are more operations that are going to be associated with the picture box that make autosize impossible to use. The code I have for importing the pictures is below. Thanks for your help!!

 

Private Sub b101clicksub(ByVal sender As System.Object, ByVal e As System.EventArgs)
       With ofd51
           .CheckFileExists = True
           .CheckPathExists = True
           .Filter = "Images|*.bmp;*.tiff;*.jpg;*.jpeg;*.png;"
           .Multiselect = False
           .ShowHelp = False
           .Title = "Select an Image"
       End With

       If ofd51.ShowDialog() = DialogResult.OK Then
           Dim tmpBMP As New Bitmap(ofd51.FileName)
           gp51.Image = tmpBMP
       End If
   End Sub

[mutant]

To scale an image use the GetThumbnailImage() method of the image:

Dim b As new Bitmap("image path")
b = b.GetThumbnailImage(width, height, New Image.GetThumbnailImageAbort(AddressOf tb), IntPtr.Zero)
picturebox1.Image = b

And then you must add a delegate for the third argument:

Private Function tb() As Boolean 'you can call this function whatever you want
   Return False
End Function