Buenas a todos, en este post vamos a ver como Crear Thumbnail desde Imagen,
Para ello sera necesario, 2 botones , 2 Labels y un picturebox. asi como te muestro en la imagen.
Al boton de abrir imagen al le hemos llamado a abrir y al label de los guiones le hemos llamado Tamañoimagen
Ahora vamos a la parte de código,
1 nos declaramos un bmp publico , que sera con el que interactuaremos para generar el thumb.
1 2 |
'Control Bitmap Publico Public bmp As Bitmap |
A continuación en el botón abrir hacemos lo siguiente,
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub Abrir_Click(sender As Object, e As EventArgs) Handles Abrir.Click 'Creamos el objeto openfiledialog Dim f As New OpenFileDialog 'Aplicamos los filtro para que solo veamos las imagenes con extensiones bmp y jpg f.Filter = "(*.jpg)|*.jpg|(*.bmp)|*.bmp" 'Si ha seleccionado 1 If f.ShowDialog = DialogResult.OK Then 'La leemos y la apliacmos al Bitmap Publico bmp = New Bitmap(f.FileName) 'La asignamos a el picturebox PictureBox1.Image = bmp 'Y al Label le ponemos cual es la resolución Me.Tamañoimagen.Text = bmp.Size.ToString End If End Sub |
Bien ahora nos queda crear el thumb que lo haremos de la siguiente manera , he asignado directamente la ruta y el nombre de guardado pero lo podeis hacer vosotros añadiendo una caja de texto para indicarle la ruta.
1 2 3 4 5 6 7 |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Le decimos al Bmp que queremos un thumbnail del tamaño especificado 120x120 'y se lo asignamos a un nuevo bitmap Dim nbmp As Bitmap = bmp.GetThumbnailImage(120, 120, Nothing, IntPtr.Zero) 'Por ultimo lo guardamos. nbmp.Save("C:\adb\test.jpg") End Sub |
y hasta aqui.
Quizas te te interese ver mas ejemplos de open,save,folder… Dialogs aqui
Un Saludo a tod@s.
Es util como reescalado de imagenes , muchas gracias me salvó