Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Calcu en Junio 05, 2024, 08:54:48 am

Título: ucImage y ángulo
Publicado por: Calcu en Junio 05, 2024, 08:54:48 am

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: [Seleccionar]

If ucImage1.Angle = 270 Then
        ucImage1.Angle = 0
    Else
        ucImage1.Angle = ucImage1.Angle + 90
    End If

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!

Título: Re:ucImage y ángulo
Publicado por: Calcu en Junio 05, 2024, 12:18:48 pm

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!