¿Es mas eficiente redimensionar una imagen que encapsularla en una etiqueta img con sus propiedades height y width?La ventaja de redimensionar las imagenes es que al momento de mostrarlos en la red, las imagenes de mayor tamaño demoran mas tiempo en mostrarse completas, por mas que modifiques la propiedad height o width, mientras que si redimensionas una imagen este es menos pesado y es mas rapido la visualizacion en la red.
Realmente muy bueno este articulo, yo estab buscando algo asi pero en Visual Basic .NET.Hola estoy intentando redimensionar las imagenes en visual basic.net he visto que lo intentabas hacer tu tambien. Que lo has logrado hacer. Es por si me dejabas ver el codigo. GRACIAS
Ahora tratare de acomodarlo para el Visual Basic .NET. Espero que me salga.
:comp:
Hay está el codigo para vb.net.No me funciona porque yo lo que tengo es el siguiente codigo:Código: Text
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra) bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero) Código: Text
Private Function ECodigoExtra() As Boolean Return False End Function
Cita de: "senzao18"Hay está el codigo para vb.net.No me funciona porque yo lo que tengo es el siguiente codigo:Código: Text
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra) bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero) Código: Text
Private Function ECodigoExtra() As Boolean Return False End Function
'Elegimos la imagen izquierda que querramos
OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim jpg As New Bitmap(OpenFileDialog1.FileName)
Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)
jpg = jpg.GetThumbnailImage(PictureBox1.Image.Width = 200, PictureBox1.Image.Height = 224, delegat, IntPtr.Zero)
PictureBox1.Image = CType(jpg, Image)
End If
Y me da error a la hora de hacer el thumbnailImage
Es que lo que yo quiero hacer es escoger una foto con el OpenFileDialog y redimensionarla y abrirla con el tamaño que yo quiera.