Le site de la communauté de Gambas

Ce sujet est résolu.

Auteur Messages

spheris #1 Posté le 16/6/2016 à 20:14:38

Bonjour,
Une valeur d'une cellule d'une gridview change toutes les 2 minutes dans un de mes softs.
Je fixe des valeurs limites max et min à ne pas dépasser.
Afin que l'utilisateur ait une visu plus conviviale, je souhaiterais changer la couleur de la cellule de sorte que :
- Si dépassement hors limite max ou min couleur rouge.
- si valeur correcte alors case verte..

avec un select case myvalue, ça je sais faire.

Pour faire plus pro, je souhaiterais faire varier la couleur du rouge au vert par un dégradé.
Plus je m'approche de la consigne et plus la case devient verte.
Auriez-vous une idée de code?
Merci pour votre aide.

www.gambaslinux.fr

spheris #2 Posté le 16/6/2016 à 20:34:48

Trouvé!
ça ressemble à ceci:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 PUBLIC SUB Button1_Click() DIM sHex AS STRING DIM r AS INTEGER DIM g AS INTEGER DIM b AS INTEGER IF Textbox1.text = "" THEN Textbox1.Text = 0 IF Textbox2.text = "" THEN Textbox2.Text = 0 IF Textbox3.text = "" THEN Textbox3.Text = 0 r = Val(Textbox1.Text) g = Val(Textbox2.Text) b = Val(Textbox3.Text) sHEX = Hex$(r,2) & Hex$(g,2) & Hex$(b,2) sHEX = "&H" & sHEX & "&" DrawingArea1.BackColor = Val(sHEX) END

L'astuce c'est la ligne 12, 13, 14.

reste à faire une règle de trois sur l'écart avec ma valeur consigne.

www.gambaslinux.fr

Flachy Joe #3 Posté le 16/6/2016 à 23:09:02

Iguane : Il Gambas Uniquement pour Activer ses NEurones

Salut,

1
2
3
sHEX = Hex$(r, 2) & Hex$(g, 2) & Hex$(b, 2) sHEX = "&H" & sHEX & "&" DrawingArea1.BackColor = Val(sHEX)

Ça va pas mieux comme ça ?

1	`DrawingArea1.BackColor=Color.RGB(r, g, b)`

ou alors

1	`DrawingArea1.BackColor=r256256+g*256+b`

Flachy Joe

Gambas France BETA

couleur d'une case gridview...