Как конвертировать RGB в HEX?

[Dimmak]

Как конвертировать RGB в HEX
К примеру (255,0,0) - красный
конвертировать в 0x000000

 

[kaster]

RGB и так в Hex

 

[Dimmak]

Kaster
К примеру (255,0,0) - красный
конвертировать в 0x000000

 

[Zaramot]

Dimmak,
0x000000 это чёрный цвет (0,0,0)

Вот:

Dim $RGB[3] = [255, 0, 0]

$Web = _ColorConvertRGBtoWeb($RGB)
MsgBox(0, 'Hex', $Web)

Func _ColorConvertRGBtoWeb($avArray)
	If UBound($avArray) <> 3 Or UBound($avArray, 0) <> 1 Then Return SetError(1, 10, 0)
	for $i = 0 to 2
		$avArray[$i] *= 255
	Next
	Return '0x' & Hex($avArray[0], 2) & Hex($avArray[1], 2) & Hex($avArray[2], 2)
EndFunc

 

[winstan]

Dimmak [?]

К примеру (255,0,0) - красныйконвертировать в 0x000000

0x000000-чёрный

_12(255,255,255)

Func _12($v1=0,$v2=0,$v3=0)
ConsoleWrite(StringRight(Hex($v1),2)&StringRight(Hex($v2),2)&StringRight(Hex($v3),2))
EndFunc

 

[AZJIO]

$sDec='199,56,185'
$iDec=StringSplit($sDec, ',')
If $iDec[0] = 3 Then
	$Re=StringFormat("%02X%02X%02X", $iDec[1], $iDec[2], $iDec[3])
	MsgBox(0, 'Число в шестнадцатеричном виде', $Re &@CRLF& 'Для использования '&Dec($Re))
EndIf

 

[Dimmak]

AZJIO, winstan, Zaramot
Спасибо! :IL_AutoIt_1: