Differenze tra le versioni di "Convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice: '''Public''' Sub Ma...") |
(Nessuna differenza)
|
Versione delle 19:08, 16 nov 2015
Per convertire il formato RGBA di un colore 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 b = 255 g = 150 r = 100 a = 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