Programación > Visual Basic 6

ucImage y ángulo

(1/1)

Calcu:
Buenas a todos, estoy experimentando con el ucimage y me encuentro un problema (creo que tonto, pero no se solucionarlo)

Tengo una imagen rectangular :

ucimage1.pictureheight = 3120
ucimage1.picturewidth = 4160

he montado un botón para rotar la imagen, porque a veces sale horizontal y la quiero vertical:


--- Código: ---If ucImage1.Angle = 270 Then
        ucImage1.Angle = 0
    Else
        ucImage1.Angle = ucImage1.Angle + 90
    End If

--- Fin del código ---

Y efectivamente gira la imagen, pero la corta, no vuelve a hacer la escala para que cuando la pongo en vertical, se haga "mas pequeña" y así se vea entera.

Podeis guiarme un poco ?

gracias!

Calcu:
Bueno... parece que usando la propiedad ucImage1.ScaleMode = eScale, y NO redimensionando el control ni antes ni despues, lo hace correcto, me apaño xD

Gracias!

Navegación

[0] Índice de Mensajes