Opacidad

Shell 07-07-2023, 23:35

Buenas!.

Les subo un ejemplo bien breve. Seguro que a "más" de uno le gusta. Tongue

La transformación!!. Big Grin

Por cierto, ¿ transparencia, opacidad o translucidez ?. Traslucida, vamos.
Es que no iba a poner una foto de una chica algo ligera de ropa, ejem.

Código fuente.

Código:
Private gambas As New Image

Private python As New Image

Public Sub Form_Open()

  gambas = Image.Load("Gambas3.png")  

  python = Image.Load("python3.png")

End

Public Sub DrawingArea1_Draw()

  Paint.DrawImage(gambas, 0, 0, gambas.W, gambas.H, Slider1.Value / 100)

  Paint.DrawImage(python, 0, 0, python.W, python.H, 1 - Slider1.Value / 100)

End

Public Sub Slider1_Change()

  DrawingArea1.Refresh

End

El control slider se encarga de la opacidad.

Cita:
Opacity : the opacity used for drawing the image, between 0.0 (fully transparent, nothing is drawn) and 1.0 (fully opaque). By default, the image is drawn fully opaque.

Saludos

Archivos adjuntos

Opacidad-0.0.1.tar.gz (Tamaño: 57.81 KB Descargas: 1)

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln