+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: Opacidad (/thread-1440.html)
Opacidad - Shell - 07-07-2023
Buenas!.
Les subo un ejemplo bien breve. Seguro que a "más" de uno le gusta.
![[Imagen: 39GTFPr.png]](https://i.imgur.com/39GTFPr.png)
La transformación!!.
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
EndEl 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