Acerca de:

Este blog contiene los códigos, ejemplos y bases de datos que he usado cuando aprendía acerca de algún tema específico. En lugar de borrarlos (una vez dominado ya el tema), he decidido publicarlos :)

viernes, 3 de junio de 2011

VB6 Code Snippet: Mantener la proporción de alto y ancho de una imagen

Tengo una imagen cargada en un control Image en Visual Basic 6. Quiero que esa imagen mantenga su proporción Ancho/Alto cuando el control Image tiene su propiedad Stretch en True.  El código para hacerlo es el siguiente (He llamado al control Image imgProporcion):

        Dim i As Double, j As Double
        Dim proporcion As Double
       
        i = imgProporcion.Width
        j = imgProporcion.Height
   
        imgProporcion.Visible = False
        imgProporcion.Stretch = False
               
        i = (i / imgProporcion.Width)
        j = (j / imgProporcion.Height)
       
        If j > i Then proporcion = j Else proporcion = i
       
        imgProporcion.Stretch = True
        imgProporcion.Width = CInt(proporcion * imgProporcion.Width)
        imgProporcion.Height = CInt(proporcion * imgProporcion.Height)
        imgProporcion.Visible = True