| Pregunta: | 19561 - PROPIEDADES DE IMáGENES |
| Autor: | Josemari Etxagibel |
| Hola amigos!
Me gustaría que alguien me pudiese indicar cómo puedo saber, dada una imagen determinada (p.e. un archivo JPG), sus dimensiones, etc... Mi intención es visualizar imágenes en una ventana utilizando una control IMAGE y poder ajustar ese control al tamaño de la imagen para que no me la desproporcione (mantenga un equilibrio entre el alto y el ancho) Gracias por adelantado | |
| Respuesta: | Josemari Etxagibel |
| Yo mismo he encontrado una solución, aunque no sé si es la mekor. Si a alguien se le ocurre algo que, por favor, me lo haga saber.
imgFoto es el control picture en el que se mostrará la imagen Cadena es el nombre del archivo a mostrar imgFoto.Visible = False imgFoto.Stretch = False 'para que me lo amplie a su tamaño real imgFoto.Picture = LoadPicture(Cadena) x = imgFoto.Height / MaxX 'MasX el tamaño X mayor que se puede mostrar. y = imgFoto.Width / MaxY 'MasY el tamaño Y mayor que se puede mostrar. 'Se ajusta el control al tamaño máximo que se pueda mostrar 'sin que se produzca una deformación de la imagen If x > y Then imgFoto.Height = imgFoto.Height / x imgFoto.Width = imgFoto.Width / x Else imgFoto.Height = imgFoto.Height / y imgFoto.Width = imgFoto.Width / y End If imgFoto.Stretch = True imgFoto.Visible = True 'Además si queremos saber el tamaño de la imagen no tenemos mas que dividir los valores X e Y entre 567 para pasar twips a cm. | |