Récupération code couleur par un click souris [Résolu]
Cjvg
- Messages postés
- 330
- Date d'inscription
- mercredi 6 décembre 2000
- Statut
- Membre
- Dernière intervention
- 26 octobre 2017
- Messages postés
- 3248
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 30 août 2019
A voir également:
- &hff00&
- Code couleur visual basic - Meilleures réponses
- Couleur basic - Meilleures réponses
- Visual Basic / VB.NET : Recuperer le delay du double click de la souris - CodeS SourceS - Guide
- Visual Basic / VB.NET : Fonction api pour detection des clicks souris et situation - CodeS SourceS - Guide
- Delphi / Pascal : Récupérer la couleur d'un pixel de l'écran - CodeS SourceS - Guide
- Recuperer la couleur de la barre de titre - Codes sources - Visual Basic / VB.NET (Formulaire)
- Visual Basic / VB.NET : Convertisseur de codes couleur décimal - hexadécimal - rgb - C - Guide
15 réponses
- Messages postés
- 330
- Date d'inscription
- mercredi 6 décembre 2000
- Statut
- Membre
- Dernière intervention
- 26 octobre 2017
Pour info: 255 idem à ---> rgb(255,0,0) ) idem à ---> FF0000
--------------------------------------------------------------------
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave ?......... Ce n'est pas grave pour un programme qui récupère le code couleur pour réaliser un traitement particulier
If Couleur Lue sur l'écran = 6737049 alors je lance un traitement
If Couleur Lue sur l'écran = 65256 alors je lance un autre traitement
Etc..........
--------------------------------------------------------------------
-Ce logiciel est utilisé et tourne correctement sur différents ordinateurs XP, Vista et Windows 7
Soyez gentil de lire les messages avant de poster une réponse
--------------------------------------------------------------------
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave ?......... Ce n'est pas grave pour un programme qui récupère le code couleur pour réaliser un traitement particulier
If Couleur Lue sur l'écran = 6737049 alors je lance un traitement
If Couleur Lue sur l'écran = 65256 alors je lance un autre traitement
Etc..........
--------------------------------------------------------------------
-Ce logiciel est utilisé et tourne correctement sur différents ordinateurs XP, Vista et Windows 7
Soyez gentil de lire les messages avant de poster une réponse
- Messages postés
- 6271
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 14 octobre 2019
- Messages postés
- 330
- Date d'inscription
- mercredi 6 décembre 2000
- Statut
- Membre
- Dernière intervention
- 26 octobre 2017
Bonjour,
Le code Couleur lu par le programme sur le PC Windows XP qui ne semble plus fonctionner correctement est: RGB(156,207,99) .
Je viens de faire deux autres essais avec le même programme en cliquant sur la même Couleur:
- Sur un autre PC XP: Le code lu est RGB(153,204,102)
- Sur un PC Vista: Le code lu est également RGB(153,204,102)
Par avance Merci pour votre aide
Le code Couleur lu par le programme sur le PC Windows XP qui ne semble plus fonctionner correctement est: RGB(156,207,99) .
Je viens de faire deux autres essais avec le même programme en cliquant sur la même Couleur:
- Sur un autre PC XP: Le code lu est RGB(153,204,102)
- Sur un PC Vista: Le code lu est également RGB(153,204,102)
Par avance Merci pour votre aide
- Messages postés
- 330
- Date d'inscription
- mercredi 6 décembre 2000
- Statut
- Membre
- Dernière intervention
- 26 octobre 2017
Bonjour,
Comme je n'avais pas la réponse à mon problème sur ce site, j'ai posé la même question sur Developpez.Net.
Monsieur XylonAkau a eu la gentillesse de me répondre et de me donner la solution à mon problème.
Un paramètre d'affichage à été modifié à mon insu. La correction suivante à été appliquée:
- Panneau de Configuration - Affichage - Paramètres - Qualité Couleur - Remplaçé 16 Bits par 32 Bits.
Encore bravo à Monsieur XylonAkau sur Developpez.Net.
Mille Merci.
--
Comme je n'avais pas la réponse à mon problème sur ce site, j'ai posé la même question sur Developpez.Net.
Monsieur XylonAkau a eu la gentillesse de me répondre et de me donner la solution à mon problème.
Un paramètre d'affichage à été modifié à mon insu. La correction suivante à été appliquée:
- Panneau de Configuration - Affichage - Paramètres - Qualité Couleur - Remplaçé 16 Bits par 32 Bits.
Encore bravo à Monsieur XylonAkau sur Developpez.Net.
Mille Merci.
--
- Messages postés
- 330
- Date d'inscription
- mercredi 6 décembre 2000
- Statut
- Membre
- Dernière intervention
- 26 octobre 2017
Bonjour,
Je suis désolé, mais je ne sais pas comment considérer les proportions de RGB.
Dans mes programmes j'ai les instructions:
Couleur = Picture1.Point(X, Y)
if Couleur = 16777215 then Call .........
Sauf erreur de ma part je pense que le traitement sera identique avec l' instructions ci-dessous:
if Picture1.Point(X, Y) = rgb(187,783,199) then Call ........
J'ai un petit outil qui me permet d'afficher toutes la palette de couleur et, pour chacune d'elle d'afficher le code couleur
numérique et RGB. --> 16777215 est identique à rgb(187,783,199).
------------------------------------------------------------------
Il y a certainement quelque chose que je ne comprends pas.
Auriez vous l'amabilité de préciser votre réponse (si vous avez un exemple simple de deux instructions ce serait plus que parfait).
Par avance Merci.
Je suis désolé, mais je ne sais pas comment considérer les proportions de RGB.
Dans mes programmes j'ai les instructions:
Couleur = Picture1.Point(X, Y)
if Couleur = 16777215 then Call .........
Sauf erreur de ma part je pense que le traitement sera identique avec l' instructions ci-dessous:
if Picture1.Point(X, Y) = rgb(187,783,199) then Call ........
J'ai un petit outil qui me permet d'afficher toutes la palette de couleur et, pour chacune d'elle d'afficher le code couleur
numérique et RGB. --> 16777215 est identique à rgb(187,783,199).
------------------------------------------------------------------
Il y a certainement quelque chose que je ne comprends pas.
Auriez vous l'amabilité de préciser votre réponse (si vous avez un exemple simple de deux instructions ce serait plus que parfait).
Par avance Merci.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
rgb(187,783,199)
n'existe pas. Aucune composante ne saurait excéder 255 !
Voici comment on extrait les composantes RGB d'une couleur dont on a la valeur en Long (exemple) :
A partir de ces valeurs absolues, ont détermine les valeurs relatives (la composition, donc, de la couleur). Et on travaille ensuite sur des fourchettes de ces valeurs relatives (arithmétique)
Si entre xR% et yR% de rouge et entre xB% et yB% de vert et entre xB% et yB% de bleu, alors ...
Ce n'est que de l'arithmétique.
n'existe pas. Aucune composante ne saurait excéder 255 !
Voici comment on extrait les composantes RGB d'une couleur dont on a la valeur en Long (exemple) :
Dim R As Integer, G As Integer, B As Integer, coul As Long
coul = 12767201
R = &HFF& And coul
G = (&HFF00& And coul) \ 256
B = (&HFF0000 And coul) \ 65536
MsgBox "R = " & R & vbCrLf & "G = " & G & vbCrLf & "B = " & B & vbCrLf
A partir de ces valeurs absolues, ont détermine les valeurs relatives (la composition, donc, de la couleur). Et on travaille ensuite sur des fourchettes de ces valeurs relatives (arithmétique)
Si entre xR% et yR% de rouge et entre xB% et yB% de vert et entre xB% et yB% de bleu, alors ...
Ce n'est que de l'arithmétique.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
J'ajoute qu'il est plus que probable que ces mésaventures résultent du fait que tu lis les couleurs affichées (d'où l'intervention de la configuration) au lieu de lire celles correspondant à un fichier (coordonnées dans le fichier) qui, elles, restent toujours identiques.
La conception serait alors à reconsidérer.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
La conception serait alors à reconsidérer.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
- Messages postés
- 3248
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 30 août 2019
plus rien compris
http://www.colorcombos.com/colors/FF0000
avec la calculatrice si je convertis FF0000 en dec > 16711680
FF0000 ce n'est pas la couleur rouge ?
http://www.colorcombos.com/colors/FF0000
avec la calculatrice si je convertis FF0000 en dec > 16711680
FF0000 ce n'est pas la couleur rouge ?
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Euh...
Mets donc un label label1 sur un form et ce code au click d'un bouton de commande :
FF n'est pas FF0000
et maintenant :
MsgBox Hex(RGB(255, 0, 0))
Le rouge est FF
Et pourquoi donc une calculatrice ?
VB6 possède Val et Hex.
Val("&HFF0000") ===>> donne 16711680
Val("&HFF") =====>> donne 255
Hex(rgb(255,0,0)) ===>> donne FF et non FF0000
msgbox RGB(255,0,0) = vbRed donne true
MsgBox 255 = vbRed donne true
MsgBox 16711680 = vbRed donne false
MsgBox 16711680 = vbBlue donne true
Msgbox Val("&HFF0000") = vbblue donne true
Mets donc un label label1 sur un form et ce code au click d'un bouton de commande :
Label1.BackColor = &HFF0000 MsgBox "c'est bleu !" Label1.BackColor = 16711680 MsgBox "c'est également bleu, hein ..." Label1.BackColor = 255 MsgBox "voilà le rouge ..." Label1.BackColor = &HFF MsgBox "voilà encore le rouge ..." MsgBox &HFF0000 = &HFF
FF n'est pas FF0000
et maintenant :
MsgBox Hex(RGB(255, 0, 0))
Le rouge est FF
Et pourquoi donc une calculatrice ?
VB6 possède Val et Hex.
Val("&HFF0000") ===>> donne 16711680
Val("&HFF") =====>> donne 255
Hex(rgb(255,0,0)) ===>> donne FF et non FF0000
msgbox RGB(255,0,0) = vbRed donne true
MsgBox 255 = vbRed donne true
MsgBox 16711680 = vbRed donne false
MsgBox 16711680 = vbBlue donne true
Msgbox Val("&HFF0000") = vbblue donne true
- Messages postés
- 3248
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 30 août 2019
c'est bien bleu au moins je ne suis pas daltonien (:-
je me rends compte que ma méthode pour convertir rgb(r,g,b) en hexa est fausse
si j'ai rgb(255,0,0) alors je dis la valeur hexa pour chacun r en hexa est FF , g = 00 et b = 00 ce qui donne FF0000 et c'est faut ,c'est bleu pas rouge alors plutot former à l'inverse 0000FF
rgb(0,0,255) en hexa FF0000
rgb(80,0,255) => FF0050
je me rends compte que ma méthode pour convertir rgb(r,g,b) en hexa est fausse
si j'ai rgb(255,0,0) alors je dis la valeur hexa pour chacun r en hexa est FF , g = 00 et b = 00 ce qui donne FF0000 et c'est faut ,c'est bleu pas rouge alors plutot former à l'inverse 0000FF
rgb(0,0,255) en hexa FF0000
rgb(80,0,255) => FF0050
- Messages postés
- 3248
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 30 août 2019
Salut banana32
ben oui c'est redevenu à la mode LOL
non en faite avant le vb.net je codais en vb6 et en plus dans le forum
les questions en vb.net se font rares
bon je retourne à mon projet
ben oui c'est redevenu à la mode LOL
non en faite avant le vb.net je codais en vb6 et en plus dans le forum
les questions en vb.net se font rares
bon je retourne à mon projet