Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPÉRER LA VALEUR RGB D'UN POINT ET ZOOM


Information sur la source

Catégorie :Graphique Classé sous : couleur, rgb, point Niveau : Expert Date de création : 30/04/2000 Vu / téléchargé: 4 528 / 301

Note :
5 / 10 - par 2 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Ce code est très simple et s'inspire du code de superposition de 2 images (dans la même rubrique). Dans les arguments, PB est le PictureBox, X et Y la position du point par rapport au coint haut-gauche du PictureBox (en Pixels, donc divisez la position en Twips par 14.99, ou par Screen.TwipsPerPixelX, ou Screen.TwipsPerPixelY selon le cas), rd, vb et bd sont les valeurs dans lesquelles on place respectivement la composante Rouge, Verte et Bleue.
 

Source

  • Function CoulPoint(PB As PictureBox, X, Y, rd, vd, bd)
  • Dim r As Long
  • Dim v As Long
  • Dim b As Long
  • Dim Couleur1
  • Dim Couleur2
  • Couleur1 = PB.Point(X * 14.99, Y * 14.99)
  • Couleur2 = Couleur1
  • bd = ((((Couleur2 \ &H10000) And &HFF) * 50) + (((Couleur1 \ &H10000) And &HFF) * 50)) \ 100
  • vd = ((((Couleur2 \ &H100) And &HFF) * 50) + (((Couleur1 \ &H100) And &HFF) * 50)) \ 100
  • rd = (((Couleur2 And &HFF) * 50) + ((Couleur1 And &HFF) * 50)) \ 100
  • CoulPoint = RGB(rd, vd, bd) 'pour avoir la couleur directement !
  • End Function
Function CoulPoint(PB As PictureBox, X, Y, rd, vd, bd)
    Dim r As Long
    Dim v As Long
    Dim b As Long
    Dim Couleur1
    Dim Couleur2
    Couleur1 = PB.Point(X * 14.99, Y * 14.99)
    Couleur2 = Couleur1
    bd = ((((Couleur2 \ &H10000) And &HFF) * 50) + (((Couleur1 \ &H10000) And &HFF) * 50)) \ 100
    vd = ((((Couleur2 \ &H100) And &HFF) * 50) + (((Couleur1 \ &H100) And &HFF) * 50)) \ 100
    rd = (((Couleur2 And &HFF) * 50) + ((Couleur1 And &HFF) * 50)) \ 100
    CoulPoint = RGB(rd, vd, bd) 'pour avoir la couleur directement !
End Function

Conclusion

Vous pouvez, comme dans l'exemple zippé, faire un outil pipette, puis un zoom.
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Que de couleurs impossible [ par Charles Racaud ] C'est peut-être pas possible mais je chercherait un moyen pour savoir si une couleur est situer entre 2 couleur (Les couleurs sont Rouge et Rouge fonc valeur rgb d'une couleur [ par vb6fr.dll ] comment connaitre la valeur rgb d'une couleur?je voudrasi faire un showcolor(commondialog)et pouvoir conneitre la valeur rgb de la couleur choisieMerc Couleur clé et DirextX7 [ par turnam ] Voila je voudrai utilisé la couleur rouge (en fait la valeur RGB 252,0,0) comme couleur clé pour afficher une image avec de la transparence , le probl RGB Excel VB [ par eldim ] Bonjour,J'ai un petit soucis :Lorsque je récupère la couleur d'un control VB et que j'essai de l'affecter à une cellule excel la couleu changer pixels(1, 1, 1) en HLS [ par poldere ] Bonjour et bon WE de pâques, je voulais savoir si il y a une façon facile pour un débutant pour convertir une couleur en byte d'un tabl Couleur RGB en couleur web ? [ par La biode ] Bonjour j'aimerais bien connaitre une méthode simple pour passer d'une couleur sélectionné à l'aide d'une common dialogue à un code couleur HTML pour  couleur en rgb [ par Zachs ] Bonjour, j'aimerai mettre une couleur de fonds de cellule de gridview Me.dgvEventTitle.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.Redet j' Common Dialog Couleur ! - Led Rgb [ par MaaaGik ] Bonjour, j'ai réalisé un ptit montage electronique qui permet de gérér des leds rgb ( hoauouu c beau !!! ) , Est il possible de recuperer en temps ree [?] Couleur RGB et luminosité [ par Ghislain ] Bonjour à tous,Je cherche à récupérer à partir d'une couleur (rgb ou long) la valeur des trois composantes de luminosité, teinte et contraste.Une idée couleur HEX vers RGB [ par petchy ] bonsoir j'ai une couleur en HEX (&H00CF9874&),et je voudrais trouver l'équivalence en RGB.j'ai beau chercher mais je ne trouve pas.mercipetc


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.