Gambas France BETA


Pas de compte ? Incription

Trouver le RGB d'une couleur..GB3.18.2

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 4/5/2023 à 11:15:11
Bonjour, tout est dans le titre :

Prenons un exemple,
Soit la couleur softblue Integer : 8421631

Comment puis-je récupérer dans 3 integer nommé myred, mygreen, myblue les valeurs de cette couleur?

Pour faire l'inverse depuis le RGB et retrouver une couleur il suffit de faire :
1
mycolor = color.RGB(myred,mygreen,myblue)


Mais je cherche le contraire.

Merci pour votre réponse.

;)
www.gambaslinux.fr
vuott#2 Posté le 4/5/2023 à 12:06:41
Ne cedere ineluctabili possimusJe suggère la classe "ColorInfo":

1
2
3
4
5
6
7
8
9
10
11
PUBLIC SUB Form_Open()

DIM ci AS ColorInfo

WITH ci = Color[8421631]
PRINT .Red
PRINT .Green
PRINT .Blue
END WITH

END
« Vita non suavis esse potest, nec Mors amara. »
spheris#3 Posté le 5/5/2023 à 22:22:24
gracie mile ;)
www.gambaslinux.fr
1