imagenes en miniatura

[abelinobarajas]

Como puedo crear imagenes en miniatura desde .net con vb
He buscado en internet y dicen que hay que realizar un calculo a la imagen original y con esto trae la nueva imagen con el nuevo tamano, pero no he podido hacerlo con vb .net

[eledgarr]

Esta largo de explicar, estoy trabajando y no me da tiempo te dejo este codigo y ahi tu le pruebas ojala te sirva


Try
Dim scale_factor As Single = Single.Parse(PictureBox2.Width)
scale_factor /= 100

Dim bm_source As New Bitmap(ruta)
' Make a bitmap for the result.
'Hacer un mapa de bits para el resultado.
Dim bm_dest As New Bitmap( _
CInt(PictureBox2.Width), CInt(PictureBox2.Height))
' Make a Graphics object for the result Bitmap.
'Hacer un objeto de gráficos para el resultado de mapa de bits.
Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
' Copy the source image into the destination bitmap.
'Copiar imagen de la fuente en el destino de mapa de bits.
gr_dest.DrawImage(bm_source, 0, 0, _
bm_dest.Width + 1, _
bm_dest.Height + 1)
' Display the result.
PictureBox2.Image = bm_dest
'Para cambiar de nombre y formato la imagen
bm_dest.Save("nuevonombre.jpg", Imaging.ImageFormat.Jpeg)
Catch
MessageBox.Show("Seleccione una Imagen")
End Try