Récupérer la valeur rgb d'un point et zoom
Soyez le premier à donner votre avis sur cette source.
Vue 8 314 fois - Téléchargée 716 fois
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.
Vous pouvez, comme dans l'exemple zippé, faire un outil pipette, puis un zoom.
Source / Exemple :
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.
Codes Sources
A voir également
- Valeur rd
- Un objet qui autorise la valeur null doit posséder une valeur ✓ - Forum - C# / .NET
- Valeur sentinelle - Conseils pratiques - C / C++ / C++.NET
- Recuperer valeur base de donnée javascript - Conseils pratiques - Javascript
- Macro copier coller valeur dans une autre feuille ✓ - Forum - Visual Basic
- Trouver la plus grande valeur d'un tableau java - Guide
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.