Differenze tra le versioni di "Aggiungere il canale Alfa a un Oggetto Image privo"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
Mostriamo un esempio (è necessario attivare anche il Componente ''gb.media''): | Mostriamo un esempio (è necessario attivare anche il Componente ''gb.media''): | ||
− | Private mp As New MediaPlayer | + | Private mp As New MediaPlayer |
Versione delle 14:59, 18 set 2023
Per aggiungere il canale Alfa a un Oggetto Image, privo di tale canale, è sufficiente convertire l'Oggetto Image in una Picture e successivamente convertire l'Oggetto Picture in una Image.
Mostriamo un esempio (è necessario attivare anche il Componente gb.media):
Private mp As New MediaPlayer Public Sub Button1_Click() With mp If .State = Media.Playing Then .Stop .URL = "v4l2:///dev/video0" .SetWindow(DrawArea1) .Play() End With End Public Sub Button2_Click() Dim im As Image If mp.State <> Media.Playing Then Return ' Viene generata in questo caso un Oggetto "Image" privo di canale Alfa: im = mp.Video.Image ' Converte l'Oggetto "Image" in una "Picture", per aggiungerle automaticamente il canale Alfa, e poi la ri-converte in una "Image": im = im.Picture.Image ' Se all'Oggetto "Image" non fosse stato aggiunto il canale Alfa, questa riga solleverebbe uno specifico errore: im = im.Opacity(0.3) ' Mostra il risultato in una "ImageView": ImageView1.Image = im End