[AU3] RGB2HEX

par **Dylan Gadacha** Dim 28 Déc 2014, 16:06

Voici un convertisseur RGB -> HEXADECIMAL qui s'actualise tout seul, et sans clignotement Wink

Code:: #Include <GUIConstants.Au3> #Include <GUIConstantsEx.Au3> $Form1 = GUICreate("RGB2HEX", 280, 90) GUISetState(@SW_SHOW) $R = "00" $G = "00" $B = "00" $HEX = Hex($R, 2) & Hex($G, 2) & Hex($B, 2) $InputR = GUICtrlCreateInput($R, 10, 10, 80, 30, $SS_CENTER, $WS_EX_TRANSPARENT) $InputG = GUICtrlCreateInput($G, 100, 10, 80, 30, $SS_CENTER, $WS_EX_TRANSPARENT) $InputB = GUICtrlCreateInput($B, 190, 10, 80, 30, $SS_CENTER, $WS_EX_TRANSPARENT) $EditHEX = GUICtrlCreateEdit("0x" & $HEX, 10, 50, 260, 30, $SS_CENTER+$ES_READONLY, $WS_EX_TRANSPARENT) GUICtrlSetBkColor($InputR, "0xFF0000") GUICtrlSetBkColor($InputG, "0x00FF00") GUICtrlSetBkColor($InputB, "0x0000FF") GUICtrlSetFont($InputR, 19, 700, "", "Arial") GUICtrlSetFont($InputG, 19, 700, "", "Arial") GUICtrlSetFont($InputB, 19, 700, "", "Arial") GUICtrlSetFont($EditHex, 19, 700, "", "Arial") GUISetBkColor($HEX, $Form1) While GUIGetMsg() <> $GUI_EVENT_CLOSE $OldHEX = $HEX $R = GUICtrlRead($InputR) $G = GUICtrlRead($InputG) $B = GUICtrlRead($InputB) $HEX = Hex($R, 2) & Hex($G, 2) & Hex($B, 2) If $OldHEX <> $HEX Then GUICtrlSetData($EditHEX, "0x" & $HEX) GUISetBkColor("0x" & $HEX, $Form1) EndIf WEnd

Dylan.

par **Sachadee** Lun 29 Déc 2014, 10:19

Merci Dylan cheers

Juste une petite suggestion :

Limite la saise à 3 caractères et permet la saisie d'un code hexa (sans le 0x)pour recuperer
les valeurs RGB et ça sera parfait.

-> [Vous devez être inscrit et connecté pour voir ce lien]

par **FRED92G** Mar 30 Déc 2014, 01:28

C EST DU DEJA VUE SA J AI DU NE FAIRE UN MOI EN VBNET IL ME SEMBLE DONC C EST PAS UNE INOVATION ON SE REPETE

par Contenu sponsorisé

[AU3] RGB2HEX

[AU3] RGB2HEX

Re: [AU3] RGB2HEX

Re: [AU3] RGB2HEX

Re: [AU3] RGB2HEX