Differenze tra le versioni di "Aggiungere il canale Alfa a un Oggetto Image privo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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'Ogg...") |
|||
(4 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
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''. | 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: | + | Mostriamo un esempio (è necessario attivare anche il Componente ''gb.media''): |
− | Private mp As New MediaPlayer | + | Private mp As New MediaPlayer |
Riga 9: | Riga 9: | ||
With mp | With mp | ||
If .State = Media.Playing Then .Stop | If .State = Media.Playing Then .Stop | ||
− | .URL = "v4l2:///dev/ | + | .URL = "v4l2:///dev/video0" |
− | .SetWindow( | + | .SetWindow(DrawingArea1) |
.Play() | .Play() | ||
End With | End With | ||
Riga 23: | Riga 23: | ||
If mp.State <> Media.Playing Then Return | If mp.State <> Media.Playing Then Return | ||
− | <FONT Color=gray>' ''Viene | + | <FONT Color=gray>' ''Viene generato in questo caso un Oggetto "Image" privo di canale Alfa:''</font> |
im = mp.Video.Image | im = mp.Video.Image | ||
− | <FONT Color=gray>' ''Converte l'Oggetto "Image" in una "Picture", per aggiungerle il canale Alfa, e poi la ri-converte in una "Image":''</font> | + | <FONT Color=gray>' ''Converte l'Oggetto "Image" in una "Picture", per aggiungerle automaticamente il canale Alfa, e poi la ri-converte in una "Image":''</font> |
− | im = im<FONT Color= | + | im = im<FONT Color=red>.Picture.Image</font> |
<FONT Color=gray>' ''Se all'Oggetto "Image" non fosse stato aggiunto il canale Alfa, questa riga solleverebbe uno specifico errore:''</font> | <FONT Color=gray>' ''Se all'Oggetto "Image" non fosse stato aggiunto il canale Alfa, questa riga solleverebbe uno specifico errore:''</font> |
Versione attuale delle 00:46, 1 ago 2024
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(DrawingArea1) .Play() End With End Public Sub Button2_Click() Dim im As Image If mp.State <> Media.Playing Then Return ' Viene generato 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