elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Redimensionar imagen????
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Redimensionar imagen????  (Leído 2,636 veces)
leo17

Desconectado Desconectado

Mensajes: 93



Ver Perfil
Redimensionar imagen????
« en: 19 Septiembre 2008, 23:01 pm »

Hola q tal amigos de este foro, bueno tengo un pequeño problema con el manejo de imagenes en vb, lo que quiero hacer es que mediante un picture box cargar una imagen pero es muy grande asi que quisiera redimensionarla para poder enviarla por correo.


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Redimensionar imagen????
« Respuesta #1 en: 20 Septiembre 2008, 02:12 am »

Aca esta el codigo espero y te agrade

Código
  1. Dim ImagenFoto As IPictureDisp
  2. Public Function CargarRedimencionarIMG(sRuta As String, _
  3.                        PictureFix As PictureBox, _
  4.                        Optional ByVal Pic_Ancho As Double, _
  5.                        Optional ByVal Pic_Alto As Double, _
  6.                        Optional ByVal X As Integer = 0, _
  7.                        Optional ByVal Y As Integer = 0, _
  8.                        Optional ByVal X2 = 0, _
  9.                        Optional ByVal Y2 = 0, _
  10.                        Optional ByVal Ancho2, _
  11.                        Optional ByVal Alto2, _
  12.                        Optional Opcional) As Long
  13.  
  14.    On Error GoTo Nel:
  15.  
  16.    Dim Ancho As Single, Alto As Single, Porcentaje As Single
  17.  
  18.    Pic_Ancho = IIf(Pic_Ancho <= 0, PictureFix.Width, Pic_Ancho)
  19.    Pic_Alto = IIf(Pic_Alto <= 0, PictureFix.Height, Pic_Alto)
  20.  
  21.    PictureFix.Width = Val(Pic_Ancho): PictureFix.Height = Val(Pic_Alto)
  22.    PictureFix.Cls
  23.    Set ImagenFoto = LoadPicture(sRuta)
  24.    Ancho = ImagenFoto.Width
  25.    Alto = ImagenFoto.Height
  26.    If Ancho < PictureFix.Width And Alto < PictureFix.Height Then
  27.        Porcentaje = 100
  28.        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
  29.        Exit Function
  30.    End If
  31.    If Ancho > PictureFix.Width Or Alto > PictureFix.Height Then
  32.        If Ancho > Alto Then
  33.            Porcentaje = (PictureFix.Width * 100) / Ancho
  34.        Else
  35.            Porcentaje = (PictureFix.Height * 100) / Alto
  36.        End If
  37.        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
  38.        Exit Function
  39.    ElseIf Ancho <= PictureFix.Width Or Alto <= PictureFix.Height Then
  40.        If Ancho > Alto Then
  41.            Porcentaje = (PictureFix.Width * 100) / Ancho
  42.        Else
  43.            Porcentaje = (PictureFix.Width * 100) / Alto
  44.        End If
  45.        CargarRedimencionarIMG = CentrarPicture(PictureFix, Ancho, Alto, X, Y, Porcentaje, X2, Y2, Ancho2, Alto2, Opcional)
  46.    End If
  47.    Exit Function
  48. Nel:
  49.    Cargar = 0
  50.    Err.Clear
  51. End Function
  52. Private Function CentrarPicture(PictureFix As PictureBox, _
  53.                                Optional ByVal Ancho As Double, _
  54.                                Optional ByVal Alto As Double, _
  55.                                Optional ByVal X As Integer = 0, _
  56.                                Optional ByVal Y As Integer = 0, _
  57.                                Optional Porcentaje As Single = 100, _
  58.                                Optional ByVal X2 As Integer = 0, _
  59.                                Optional ByVal Y2 As Integer = 0, _
  60.                                Optional ByVal Ancho2, _
  61.                                Optional ByVal Alto2, _
  62.                                Optional Opcional) As Long
  63.    On Error GoTo Nel
  64.    Ancho = (Ancho * Porcentaje) / 100
  65.    Alto = (Alto * Porcentaje) / 100
  66.    PictureFix.Width = Ancho
  67.    PictureFix.Height = Alto
  68.    PictureFix.PaintPicture ImagenFoto, X, Y, Ancho, Alto, X2, Y2, Ancho2, Alto2, Opcional
  69.    CentrarPicture = 1
  70.    Exit Function
  71. Nel:
  72.    CentrarPicture = 0
  73.    Err.Clear
  74. End Function
  75.  


« Última modificación: 20 Septiembre 2008, 03:01 am por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Redimensionar imagen????
« Respuesta #2 en: 20 Septiembre 2008, 04:51 am »

Hola,yo creo que con un PaintPicture te alcanza...

saludos.
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Redimensionar imagen????
« Respuesta #3 en: 20 Septiembre 2008, 05:40 am »

Hola,yo creo que con un PaintPicture te alcanza...

saludos.

lo mismo digo, aun que la funcion que puse detecta escala la imagen a el picture y lo ajusta a este sin importar el tamaño de la imagen a cargar y no distorciona la imagen en cuestion de anchura y altura je (probarlo para verlo mejor)

Código
  1. r=cargarredimencionarimg("c:\img.jpg",picture1)

En línea

The Dark Shadow is my passion.
leo17

Desconectado Desconectado

Mensajes: 93



Ver Perfil
Re: Redimensionar imagen????
« Respuesta #4 en: 20 Septiembre 2008, 20:47 pm »

ok gracias, lo probare.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[DUDA]Redimensionar tamaño de imagen de disco con mac osx
Mac OS X
h1t 1 6,294 Último mensaje 25 Abril 2012, 16:16 pm
por h1t
Redimensionar ventanas qt
Programación C/C++
dudasAlba 1 2,904 Último mensaje 25 Enero 2016, 20:05 pm
por Becerra
Redimensionar/mover
GNU/Linux
horacio_56 0 1,831 Último mensaje 14 Agosto 2016, 01:48 am
por horacio_56
Duda sobreve redimensionar un tablespace en postgrsql
Desarrollo Web
primepip 0 2,049 Último mensaje 11 Septiembre 2017, 01:07 am
por primepip
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines