|
Ecco alcune funzioni per la conversione dei colori tra vari formati. Partendo da un colore in formato RGB ecco le routine necessarie per convertire questo colore in altri formati (formati stringa e formati numerici) ======================================================= Conversione in formato esadecimale e HTML... Dim sEsarosso As String Dim sEsaverde As String Dim sEsablu As String sEsarosso = CStr(Hex(iRedValue)) If Len(sEsarosso) < 2 Then sEsarosso = "0" & sEsarosso sEsaverde = CStr(Hex(iGreenValue)) If Len(sEsaverde) < 2 Then sEsaverde = "0" & sEsaverde sEsablu = CStr(Hex(iBlueValue)) If Len(sEsablu) < 2 Then sEsablu = "0" & sEsablu Codice Esadecimale = "&&H" & sEsablu & sEsaverde & sEsarosso & "&" 'costruisco la stringa opportunamente formattata Codice HTML="#" & sEsarosso & sEsaverde & sEsablu ========================================== Conversione in formato CMY... Dim CodiceCMY As String CodiceCMY = CStr(255 - iRedValue) & "," & CStr(255 - iGreenValue) & "," & CStr(255 - iBlueValue) Nota: il codice CMY, come si evince dalla funzione, ha valori uguali e opposti al codice RGB ============================================ Coversione in formato "Numerico" (Long) Dim CodiceNumerico As Long CodiceNumerico= RGB(iRedValue, iGreenValue, iBlueValue) |