Convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale

Per convertire il formato RGBA di un colore, come previsto in Gambas ^{[Nota 1]}, nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice:

Public Sub Main()
 
 Dim b, g, r, a As Byte
 Dim colore As Long
 
' Il valore del colore di formato RGBA va considerato secondo Gambas come segue: alfa, rosso, verde, blu.
  a = 255
  r = 100
  g = 150
  b = 255
        
  colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24)))
  
  Print Val("&" & Hex(colore, 8) & "&"), Hex(colore, 8)
  
End

Note

[1] ATTENZIONE ! In Gambas il colore di formato RGBA è così composto:

A R G B

e il valore del canale Alfa della piena opacità é uguale a zero, mentre il valore della piena trasparenza è 255 !