BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[AU3] RGB2HEX EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[AU3] RGB2HEX EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[AU3] RGB2HEX EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[AU3] RGB2HEX EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[AU3] RGB2HEX EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[AU3] RGB2HEX EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[AU3] RGB2HEX EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[AU3] RGB2HEX EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[AU3] RGB2HEX EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment :
Aliexpress : codes promo valables sur tout le site
Voir le deal

[AU3] RGB2HEX

3 participants

Aller en bas

[AU3] RGB2HEX Empty [AU3] RGB2HEX

Message 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.
Dylan Gadacha
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

[AU3] RGB2HEX Empty Re: [AU3] RGB2HEX

Message 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]
Sachadee
Sachadee
Admin
Admin

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

https://bbat.forumeiro.com

Revenir en haut Aller en bas

[AU3] RGB2HEX Empty Re: [AU3] RGB2HEX

Message 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
FRED92G
FRED92G
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

[AU3] RGB2HEX Empty Re: [AU3] RGB2HEX

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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