Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[AU3] RGB2HEX

Voir le sujet précédent Voir le sujet suivant Aller en bas

[AU3] RGB2HEX

Message par Dylan Gadacha le 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.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: [AU3] RGB2HEX

Message par Sachadee le 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]

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Re: [AU3] RGB2HEX

Message par FRED92G le 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

_________________
____________________________________________________________________________________________________________________________
 [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image]
 
ICI PAS DE TOURISME ON A AUTRE CHOSE A FAIRE ET AUCUN DROIT A L ERREUR ET PERMI OR MIE D' AVOIR UN BON DICO OU DECODEUR
SURTOUT APRES QUE LE GRAND DOCTEUR ET PARLER.
avatar
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 30
Localização : FRANCE

Revenir en haut Aller en bas

Re: [AU3] RGB2HEX

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum